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Abstract 


An  interactive  computer  program  was  developed  that 
enables  the  user  to  design  linear  phase,  finite  impulse 
response,  lineal-  shift-invariant,  two-dimensional  digital 
filters.  The  program  user  can  design  lowpass,  highpass, 
bandpass,  bandstop,  all-pass,  and  multiband  two-dimensional 
digital  filters.  The  filters  designed  by  using  the  program 
are  nearly  optimal  in  the  Chebyshev  sense^and  their  magnitude 
versus  frequency  characteristics  have^qtfadrantal  symmetry 
( | H ( )  |  =  |HC-w2,-w1  )  | ) . 

•^The  technique  implemented  in  the  program  consists  of 


transforming  a  one-dimensional  digital  filter  into  a  two- 
dimensional  digital  filter  by  a  change  of  variables.  This 
technique  was  first  proposed  by  James  H.  McClellan  and  is 
called  the  McClellan  Transformation.  The  program  user  can 
elect  to  utilise  either  the  first  order  or  the  second  order 
McClellan  Transformation  to  design  a  two-dimensional  digital 
filter. 


DESIGN  OF  LINEAR  PHASE, 

FINITE  IMPULSE  RESPONSE, 

T  WO-DIMEN SIGNAL,  DIGITAL  FILTERS 

I  Introduction 

The  use  of  digital  filters  for  signal  processing 
applications  is  becoming  pervasive.  As  the  cost  of  digital 
components  continues  to  decrease  and  the  performance  of  the 
components  continues  to  increase,  digital  signal  processing 
becomes  more  and  more  attractive.  Among  the  many  applications 
of  digital  filters  are  seismic  processing,  picture  processing, 
and  speech  processing. 

Digital  filters  can  be  categorized  using  the  length  of 
the  impulse  response  as  either  infinite  duration  impulse 
response  filters  (nonrecursive)  or  finite  duration  impulse 
response  filters  (recursive)  (Ref  6:18).  Initially, 
infinite  duration  impulse  response  (HR)  filters  were  more 
popular  than  finite  duration  impulse  response  (FIR)  filters. 
FIR  filters  were  generally  felt  to  be  inferior  because  long 
impulse  response  sequences  were  required  in  order  to  produce 
filters  with  sharp  cutoff  characteristics.  However,  with 
the  development  of  the  fast  Fourier  transformation  (FFT) 
algorithm,  implementation  of  high-order  FIR  filters  can  be 
made  extremely  computationally  efficient  (fast).  FIR 
filters  possess  very  desirable  properties  from  the,  point  of 


view  of  filter  design.  First,  FIR  filters  realized  non- 
recursively  are  always  stable  (Ref  7  576).  Second,  FIR  filter 
designs  can  always  be  realized  with  an  appropriate  finite 
time  delay,  and  third  FIR  filters  can  be  designed  so  that 
their  frequency  responses  have  exact  linear  phase 
characteristics . 

Digital  filters  can  also  be  categorized  in  terms  of  the 
dimension  of  the  filter.  For  a  one-dimensional  filter,  the 
frequency  response  is  a  function  of  one  independent  variable 
such  as  time.  For  a  two- dimensional  filter,  the  frequency 
response  is  a  function  of  two  independent  variables.  For 
example,  picture  processing  is  a  two-dimensional  filtering 
operation  where  two  independent  variables  are  the  spacial 
coordinates  of  the  picture. 

Previous  Development 

Many  techniques  have  recently  been  used  to  design  two- 
dimensional  FIR  filters.  Most  of  the  techniques  are 
extended  versions  of  the  analogous  one-dimensional  FIR 
digital  filter  design  methods.  Several  of  the  more 
promising  of  these  methods  v/ill  be  briefly  described. 

Two-dimensional  FIR  digital  filters  can  be  designed  by- 
multiplying  the  infinite  duration  ideal  frequency  response 
(hCn^ng))  by  a  window  function  (v/d(n1  ,n2) ) .  Huang  has 
explored  the  use  of  this  technique  (Ref  16).  Basically 
Huang, has  shown  that  good  two-dimensional  windows  can- be 
obtained  from  good  one-dimensional  windows  via  the  relation 
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r\  n  A. 

wd(n1,n2)  =  v/1d((n1  +  n2  )s)\  where  wld  is  an  appropriate 
one-dimensional  window  function.  Using  this  relation,  the 
filter  designer  can  design  two-dimensional  filters  by  using 
two-dimensional  wivlow?  anlogous  to  the  well  known  one- 
dim  .visional  windows  (m  tareular,  Hamming,  Kaiser,  etc,). 
Windowing  produces  a  prenuency  respo-se  which  has  ripples  or 
overshoots  (magnitude  cu-.  pendt  on  the  v/indow  used)  at  the 
discontinuities  c  .  iecewise  constant  ideal  responses.  This 
behavi  '  is  analogous  to  the  Gibb's  eficct  in  one  dimension, 
.'i.r-oth  *.!’  problem  v/ilh  thi3  method  i;j  that  it  is  a 
convolution  proc  .s  .r.  .e  frequency  domain  and  thus  discon¬ 
tinuities  in  the  ideal  response  are  smeared.  'Windowing  has 
proven  very  useful  because  of  its  speed  and  its  flexibility 
in  approximating  arbitrary  ideal  frequency  responses. 

Optimal  two-dimensional  FIR  digital  filters  can  be 
designed  by  using  linear  programming.  Hu  and  Rabiner  have 
explored  the  use  of  this  approach  (Ref  17 ).  The  linear 
programming  method  involves  solving  a  set  of  linear 
inequalities  in  order  to  minimize  the  maximum  error  of  the 
two-dimensional  frequency  response.  Although  linear  pro¬ 
gramming  is  very  flexible  and  can  be  used  to  approximate  ? 
wide  variety  of  desired  filter  shapes,  it  is  comparatively 
slow  and  thus  its  use  is  limited  to  the  design  of  small  order 
filters.  The  largest  filter  presented  by  Hu  and  Rabiner  is 
a  9X9  sample  points  filter.  The  design  involved  solving 
several  thousand  constraint  equations  and  took  several  hours 
on  a  high  speed  digital  computer  (IBM  370). 
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Two-dimensional  FIR  digital  filters  can  also  be 
designed  by  the  transformation  of  variable  technique.  This 


method,  proposed  by  McClellan,  is  several  orders  of 
magnitude  faster  than  the  windowing  and  linear  programming 
methods  for  the  design  of  a  large  class  of  two-dimensional 
filters  (Ref  3  s 1 —2 ) •  This  technique  is  essentially  a  direct 
transformation  of  a  one-dimensional  filter  design  into  a  two- 
dimensional  filter  design.  The  transformation  of  variable 
method  is  veiy  fast  and  can  design  large  order  two-dimensional 
filters  in  a  matter  of  seconds  on  a  general  purpose  digital 
computer.  This  technique  will  be  described  in  detail  in 
latter  sections . 

Problem 

The  goal  of  this  investigation  is  to  develop  an  inter¬ 
active  computer  program  to  design  a  class  of  two- 
dimensional  digital  filters.  In  this  context,  the  word 
"design"  means  the  calculation  of  the  impulse  response 
coefficients  necessary  to  approximate  a  desired  frequency 
response.  The  structural  implementation  (direct, cascade, 
etc.)  of  the  filter  is  not  addressed  in  this  investigation. 

All  filters  designed  by  the  program  will  be  linear  phase, 
finite  duration  impulse  response,  and  linear-shift 
invariant . 

The  technique  to  be  used  is  the  transformation  of 
variable  method  first  suggested  by  McClellan  (Ref  3).  This 
technique  dictates  that  all  filters  have  quadrantal  symmetry. 


This  means  that  the  two-dimensional  magnitude  versus 
frequency  characteristic  of  any  filter  designed  by  using  this 
technique  will  be  symmetric  in  all  four  quadrants  of  the  two- 
dimensional  frequency  plane.  The  program  will  allow  the  user 
the  option  of  selecting  either  the  first  order  or  the  second 
order  McClellan  Transformation  for  the  two-dimensional  filter 
design.  The  advantages  and  disadvantages  of  using  the  first 
or  second  order  McClellan  Transformation  will  be  discussed  in 
latter  sections . 

General  Approach 

This  investigation  will  develop  a  computer  program  that 
implements  the  concepts  proposed  by  McClellan  (Ref  3)  and 
Mersereau,  Mecklenbrauker,  and  Quatieri  (Ref  2)  for  the 
design  of  two-dimensional,  linear  phase,  digital  filters. 

The  program  will  be  an  extension  of  their  work  in  that  it  • 
will  provide  the  user  with  a  systematic  method  of  designing 
two-dimensional, linear  phase,  digital  filters  with  a  wide 
variety  of  shapes. 

The  algorithm  used  to  develop  the  two-dimensional  filter 
design  program  consists  of  che  following  major  steps i 

1 ,  Define  the  shape  of  the  magnitude  versus  frequency 
characteristic  of  the  desired  two-dimensional  frequency 
response  by  specifying  the  shape  and  location  of  the 
contour  in  the  ^2,wl  plane  that  is  to  be  mapped  to  the 
user’s  one-dimensional  frequency.  w2  and  w^  are  the 
..variables  on  the  axes  of  the  plane  in  which  the 
magnitude  characteristic  of  the  two-dimensional 


frequency  response  is  defined. 

(  2.  Perform  a  linear  least-squares  approximation  with 

constraints  in  order  to  find  the  values  of  the  constants 
of  the  McClellan  Transformation  that  will  produce  the 
closest  mapping  of  the  user's  one-dimensional  frequency 
to  the  two-dimensional  contour  in  the  WgjW^  plane 
specified  in  step  1 . 

3.  Design  the  one-dimensional  prototype  filter  that 
will  he  transformed  into  the  desired  two-dimensional 
filter. 

4.  Calculate  the  impulse  response  coefficients  of  the 
resulting  two-dimensional  filter. 

Sequence  of  Presentation 

(  Chapter  II  starts  with  the  McClellan  Transformation  and 

ends  with  the  approximation  problem.  In  the  section  on  the 
McClellan  Transformation,  the  mechanics  of  the  transformation 
are  discussed  as  are  the  properties  of  the  contours  produced 
by  the  transformation.  The  section  on  the  approximation 
problem  discusses  the  method  of  linear  least-squares 
approximation  with  constraints. 

•  Chapter  III  presents  the  tools  and  derivations  necessary 

to  understand  the  calculation  of  the  two-dimensional  impulse 
response  and  then  chapter  IV  presents  the  calculation  of  the 
two-dimensional  impulse  response. 

Chapter  V  presents  the  two-dimensional  filter  design 
‘  program  developed  in  this  investigation.  Chapter  VI  presents 
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design  results  obtained  by  using  the  two-dimensional  filter 
design  program.  Chapter  VII  presents  conclusions  of  this 
investigation  as  well  as  recommendations  for  future  related 
work. 

Two  appendicies  conclude  the  thesis.  Appendix  A  is  a 
user’s  manual  for  the  two-dimensional  filter  design  program 
developed  *  .  g  th..r>  investigation  and  appendix  B  is  a 

listing  o*  the  actual  computer  program. 


II  The  McClellan  Tr;  .^formation  and  the 
Contour  Approximation  Problem 

The  design  of  two-dimensional  digital  filters  as 
pursued  in  this  investigation  can  be  divided  into  two 
general  areas.  The  first  area  concerns  approximating  the 
shape  of  the  desired  magnitude  versus  frequency  character¬ 
istic  of  the  two-dimensional  filter  by  calculating  the 
constants  of  the  McClellan  Transformation.  The  second  area 
concerns  the  problem  of  calculating  the  impulse  response  of 
the  resulting  two-dimensional  filter.  The  impulse  response 
constitutes  the  desired  filter  design.  In  this  chapter,  the 
first  of  the  two  general  areas  will  be  explored. 

Generalized  McClellan  Transformation 

McClellan  discovered  that  the  equation  describing  the 

% 

frequency  response  of  a  one-dimensional,  FIR,  linear  phase 
filter 

H(w)  =  e"^wk(  53  h(n)cos(wn)  )  (l) 

n=0 

where 

H(w)  =  one-dimensional  frequency  response 
h(n)  =  one-dimensional  impulse  response 
w  ss  one-dimensional  frequency  variable 

could  be  transformed  into  an  equation  describing  the 

frequency  response  of  a  two-dimensional,  FIR,  linear  phase 

filter  by  using  a  change  of  variables.  The  change  of 

variables  first  proposed  by  McClellan  is  (Ref  3) 
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(2) 


1  1 

cos(w)  =  53  Z)  cos(iv/1  )cos(gw9)c(i,g) 
i=0  g=0  1  d 

v/here  the  c(i,g)’s  are  the  constants  that  determine  the  shape 

of  the  two-dimensional  frequency  response,  and  w^  and  w2  are 

the  two-dimensional  frequency  variables.  This  change  of 

variables  is  called  the  McClellan  Transformation. 

Other  researchers  have  generalized  McClellan’s  original 

transformation  by  allowing  the  summation  indices  to  assume 

values  other  than  one.  The  generalized  formulation  of  the 

McClellan  transformation  is  (Ref  2) 

a  b 

rnCw^.w.)  a  £  E  c(i,g)cos(iw1 )cos(gw„)  (3) 

*  i=0  g=0  1  d 

For  the  firs'*  order  McClellan  Transformation  (a  =  b  =  1) 
m(w2,w,|)  =  c(0,0)  +  c(l  ,0)cos(v^  )  +  c(0, 1  )cos(w2) 

+  c(1 ,1 )cos(w1 )cos(w2)  (4) 

For  the  second  order  McClellan  Transformation  (a  =  b  =  2) 
m(w2,w^)  =  c(0,0)  +  c(l ,0)cos(w1 )  +  c(0, 1 )cos(w2) 

+  c ( 1 , 1  JcosCw^  )cos(w2)  +  c ( 1 , 2)cos.(w.j  )cos(2w2 ) 

+  c(2, 1  )cos(2w^  )cos(w2)  +  c(2,0)cos(2v;1 ) 

+  c(0, 2)cos(2w2)  +  c(2,2)cos(2w1 )cos(2w2)  (5) 

Using  the  McClellan  Transformation  constrains  the  magnitude 

versus  frequency  characteristic  of  the'  resulting  two- 

,  *  (  ’ 

.  9  % 
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dimensional  filter  to  have  quadrantal  symmetry  (|H(w2,w^){  = 
JH(— v/2,v/^ )  j  =  |H(v;2,-w^  )  }  =  jH(-w2, -w1 )  J ) .  This  means  that 
the  magnitude  characteristic  will  be  symmetric  in  all  four 
quadrants  of  the  two-dimensional  frequency  plane.  This  is 
true  because  the  transformation  equation  possesses  quadrantal 
symmetry  and  any  symmetry  that  appears  in  the  transformation 
equation  also  appears  in  the  magnitude  versus  frequency 
characteristic  of  the  resulting  two-dimensional  filter  (Ref  l). 
This  investigation  explores  the  use  of  the  first  and  second 
order  versions  of  the  generalized  McClellan  Transformation. 

Mechanics  of  the'  Transformation .  In  order  to  help  the 
reader  understand'’  the  concepts  that  will  be  presented,  only 
the  form  of  the  McClellan  Transformation  given  by  equation  (4) 
will  be  treated.  This  will  simplify  the  mathematics  and 
allow  the  concepts  to  stand  out.  A  parallel  argument  holds 
for  equation  (5). 

When  m(w2,w.j)  in  equation  (4)  is  replaced  by  cos(w), 
equation  (4)  defines  a  mapping  from  the  interval  [0,pi]  of 
the  one-dimensional  frequency  axis  to  the  square  region 
[0,pi]  X  [o,pi}  in  the  two-dimensional  frequency  plane  .(Ref  3). 
Making  the  substitution  cos(w)  =  m(w2.,w.j)  and  solving 
equation  (4)  for  w^  as  a  function  of  w2  yields 


costw^ ) 


cos(w)  -  c(0,0)  -  c(0, 1 )cos(w2) 
c(l,0)  +  c(Y,  l’)cos(w2,' 

„  arcos f  oos(w)  -  o(0,0)cob(w2)  1 

I  t' i  '  v  *  ( x.r  V ! 


"  cos(w)  -  c(0,0)c< 
c(1,o)  +  c(l , 1 


COS {Mr 


(6) 

(7) 


10 


( 


G 
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From  equation  (7)  it  is  easy  to  see  that  for  a  fixed  w,  there 
corresponds  a  curve  in  the  w2,w.|  plane.  Along  this  curve, 
the  transformed  magnitude  of  the  two-dimensiona"  frequency 
response  is  a  constant  equal  to  the  value  of  the  magnitude 
of  the  one-dimensional  frequency  response  at  w.  As  w  varies, 
a  family  of  curves  is  generated  that  completely  describes  the 
transformed  magnitude  versus  frequency  characteristic  of  the 
two-dimensional  frequency  response.  For  example,  if  c(0,0)  = 
.3422,  c(l ,0)  =  .5,  c(0,1)  =  .5,  and  c(1,1)  =  -.3422  then  the 
contours  of  figure  1  are  generated. 

Properties  of  the  Contours.  Part  of  the  process  of 
designing  a  two-dimensional  filter  involves  choosing  or 
calculating  the  c(.i,g)’s  in  equation  (4)  or  (.5)  in  order  to 
obtain  a  desired  contour  in  the  two-dimensional  plane  as  one 
of  the  contours  of  constant  w.  Before  considering  how  to 
perform  this  operation,  it  is  necessary  to  discuss  the 
allowable  shapes  of  the  contours  in  the  two-dimensional 
frequency  plane. 

For  the  first  order  McClellan  Transformation,  the  con¬ 
tours  must  be  monotonic.  This  can  be  shown  by  letting 
cos(w)  be  fixed  in  equation  (6)  and  taking  the  derivative  of 
coslw-j)  with  respect  to  cos(w2). 

cqb(w  )  s  cos(w)  -  c(0,0)  -  cCO,1)cos(w2)  ^ 

c(1 ,0)  +  c(1,1 )cos(w2) 

dCcosCw^))  — c (1,0 )c (0 , 1 )  -  c( 1 , 1 )cos (w )  +  c(Q,0)c(1 , 1 )  ^ 

d(costw2))  [c(1 ,0)  +  cU,1)cosW2)]2 


s 
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Equation  (8)  shows  that  cos(w^)  is  a  monotonic  function  of 
cos(wg)  since  the  sign  of  the  derivative  does  not  change  as 
cos(wg)  varies  from  -1  to  +1.  Therefore  w^  is  a  monotonic 
function  of  Wg. 

For  the  second  order  McClellan  Transformation,  it  can 
be  shown  by  a  similar  analysis  that  the  requirement  for 
momotonic  contours  does  not  apply  (Ref  4:44-45).  In  other 
words,  w.j  is  not  constrained  to  be  a  monotonic  function  of 

Wg. 

The  Approximation  Problem 

This  section  is  concerned  v/ith  the  problem  of  choosing 
the  transformation  parameters  (c(i,g)'s  of  equation  (5))  so 
that  the  resulting  contours  in  the  Wg,w.j  plane  have  some 
desired  shape.  In  general  only  the  shape  of  a  single  con¬ 
tour  can  be  closely  approximated  using  the  method  to  be 
described.  This  is  usually  not  a  problem  when  designing  the 
most  common  types  of  filters  (lowpass,  highpass,  and  all¬ 
pass)  since  the  most  important  contour  for  approximation  is 
the  band  edge.  The  shape  of  the  other  contours  in  the  pass- 
band  or  stopband  is  usually  not  important.  This  constraint 
on  the  number  of  contours  that  can  be  closely  approximated 
becomes  more  troublesome  when  designing  bandpass,  bandstop, 
and  multi-band  filters.  Here  the  best  that  the  iesigner  can 
do  is  hope  that  all  contours  in  the  region  of  interest'.'have 
the  same  shape.  If  this  is  true,  the  designer  can  usually 
get  the  band  edges  to  lie  where  he  desires  by  making  adjust¬ 
ments  to  the  c(i,g)’s  of  equation  (3). 


In  the  rest  of  this  chapter,  the  second  order  McClellan 
Transformation  will  he  used  in  the  discussion.  This  will 
allow  the  reader  to  easily  convert  to  the  first  order  case 
by  setting  c(0,2),  c(2,0),  c(2,2),  c ( 1 , 2 ) ,  and  c(2,l)  equal 
to  zero  in  the  equations  that  follow. 

Constraints .  The  equation  for  the  second  order 
McClellan  Transformation  is 

cos(w)  =  c(0,0)  +  c(l  ,0)cos(w.| )  +  c(0, 1 )cos(w2 ) 

+  c(1 ,1)cos(w.j  )cos(w2)  +  c(1 ,2)cos(w1  )cos(2w2) 

+  c(2, 1  )cos(2w1 )cos(w2)  +  c(2,0)cos(2w1 ) 

+  c(0,2)cos(2w2)  +  c(2,2)cos(2w1 )cos(2w2)  (9) 

For  the  approximation  problem,  w  is  fixed  and  is  the  one¬ 
dimensional  frequency  that  is  to  map  to  the  chosen  contour 
in  the  w2,w^  plane.  If  the  c(i,g)'s  in  equation  (9)  are 
allowed  to  assume  any  values  then  the  trivial  solution 
c(0,0)  =  cos (w) ,  c(l,0)  =  c(0,l)  =  c(l,l)  =  c(l,2)  =  c(2,l) 

*  c(2,0)  *  c(0,2)  =  c(2,2)  *s  0,0  will  result  in  zero 
error.  This  solution  results  in  the  frequency  w  mapping  to 
the  entire  two-dimensional  plane  [0,pi] X[0,pi] .  To  prevent 
the  trivial  solution  from  occurring,  some  constraints  must 
be  placed  on  the  c(i,g)’s. 

The  filter  designer  is  free  to  choose  any  set  of 
constraints  so  long  as  they  do  not  conflict  with  the  desired 
shape  of  the  contour  in  the  two-dimensional  frequency  plane. 
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It  is  to  the  advantage  of  the  filter  designer  to  choose  a 
small  set  of  constraints  since  each  constraint  forces  one 
c(i,g)  to  become  a  function  of  the  remaining  c(i,g)'s.  Thus 
the  approximation  process  is  impared  if  a  large  number  of 
constraints  is  used  and  the  desired  contour  has  a  complex 
shape. 

To  give  the  approximation  process  the  most  freedom,  one 
constraint  should  be  chosen.  The  following  constraints  are 
fairly  independent  of  contour  shape*  If  the  constraint  that 
w  =  0  maps  to  (wgfW^)  =  (0,0)  is  chosen,  the  constraint 
equation  is 

cos(0)  =  c(0,0)  +  c(l , O)cos(O)  .+  c(0,l)cos(0) 

+  c(1 , 1 )cos(0)cos(0)  +  c(l ,2)cos(0)cos(0) 

+  c(2, 1 )ccs(0)cos(0)  +  c(2,0)cos(0) 

+  c(0,2)cos(0)  +  c(2,2)cos(0)cos(0)  Oo) 

or 

1  =  c  (0 , 0 )  +  c(1,0)  +  c(0, 1 )  +  c(l,l)  +  c(1,2") 

+  c(2,l)  +  c(2,0)  +  c(0,2)  +  c(2,2)  (11) 

If  the  constraint  that  w  =  pi  maps  to  (wg^)  =  (pi, pi)  is 
chosen  then  the  constraint  equation  is 

-1  =  c(0,0)  -  c(l,0)  -  c(0,l)  +  c(l,.l)  -  c(l,2) 

-  c(2,l)  +  c(2,0)  +  c(0,2)  +  c(2,2)  (12) 
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If  the  constraints  that  w  =  0  maps  to  (w2,w.,)  =  (0,0)  and 
w  =  pi  maps  to  (v/2,w^ )  =  (pi, pi)  are  chosen  then  the  set  of 
constraint  equations  consists  of  equations  ( 1 1 )  and  (12). 

In  summary ,  it  has  been  shown  that  some  constraints 
must  be  placed  on  the  c(i,g)’s  in  order  to  achieve  a  useful 
solution.  Several  typical  constraints  were  presented. 

Linear  Least-Squares  Approximation  V/ith  Constraints. 

For  the  linear  least  squares  approximation  v/ith  constraints, 
w  is  fixed  and  represents  a  set  of  identical  values.  The 
basis  functions  used  for  the  approximation  are 


g1(w2,w1)  =1.0 

(15) 

g2^r2*Vf^  =  cos(w1) 

(14) 

g5(w2,w1)  =  cos(w2) 

(15) 

gi^(w2,w1)  =  C0s(w.|  )c-os(w2) 

(16) 

g5(w2,Wi)  =  cos(w1 )cos(2w2) 

(17) 

g6^w2,w1^  =  c°s(2w1  )cos(v/2) 

.  0 8 ) 

gy(w2,W1)  =  C0S(2W1) 

(19) 

S8^W2,V/1^  =  cos(2w2)  - 

c 

(20) 

* 

gg(w2>w^)  =  cos(2v/^  )cos(2w2) 

(21 ) 

Only,  the  first  four  basis  functions  are 

•  used  when  the  first 

order  McClellan  Transformation  is  used 

s  •  • 

in  the  .approximation 

process.  Luring  the'  le,ast  squares  approximation  process 


up  to  18  (up  to  8  when  the  first  Oder  transformation  is 
used)  simultaneous  equations  are  solved.  The  solution 
produces  the  c(i,g)'s  of  equation  (9).  A  detailed 
explanation  of  the  linear  least  squares  approximation  with 
constraints  method  used  in  this  investigation  can  he  found 
in  reference  15295-100. 

Applicability  of  the  Mapping .  For  the  transformation 
to  be  meaningful,  the  c(i,g)'s  calculated  from  the  least 
squares  approximation  process  much  be  such  that 
2  2 

-1  £  X)  53  c(i,g)cos(iw1  )cos(gw5)  £1  (22) 

i=0  g=0  1  44 

where  0  £  w^  £  pi  and  0  £  w2  £  pi.  This  is  easily  seen 

since  in  the  transformation  the  expression  of  equation  (22) 

is  set  equal  to  cos(w)  (equation(9) ) .  Values  outside  the 

allowable  range  of  equation  (22)  correspond  to  complex 

values  of  w  (Ref  2:408). 

The  filter  designer  can  do  three  things  if  equation  (22) 
is  found  not  to  hold  after  the  linear  least  squares  approx¬ 
imation  has  been  performed.  The  first  is  to  change  the  fixed 
value  of  w  that  was  used  the  first  time  and  then  perform  the 
approximation  again.  In.  the  majority  of  cases  this  will  not 
work.  The  reason  is  that  the  shape  of  the  two-dimensional 
contours  primarily  determines  the  values  of  the  c(i,g)'s. 

Even  large  changes  in  cos(w)  only  cause  small  changes  in  the 
c(i,- g)'s.  Also  when  equation  (22)  fails  to  hold,  values 
much  greater  than  +1  or  much  less  than  -1  are  usually 
generated.  These  cannot  be  offset  by  changing  cos(w)  since 
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the  range  of  cos(w)  is  small  (-1  -j  cos(w)  *e  +1). 

The  second  course  of  action  is  shifting  and  scaling. 
Shifting  and  scaling  does  not  change  the  shape  of  the  contours 
but  it  does  change  the  value  of  the  one-dimensional  frequency 
associated  with  each  contour  (Ref  2:408).  Shifting  and 


scaling  substitutes 


r  2  2  i 

1cos(w)-c2  =  c(i,g)cos(iw1  )cos(gv;2)J-c2  (23) 


2  2 


cos(w)  =  y\  Yj  c(i,g)cos(iv/1  )cos(gw9)  (24) 

i=0  g=0  1 

let  under-barroa  quantities  represent  the  shifted  and 
scaled  versions  of  the  original  quantities  and  let  Fmax 
denote  the  maximun  value  of  the  expression  in  equation  (22) 
and  Fmin  denote  its  minimum  value.  Then  by  choosing 

°1  ■  2/(I?max  -  W  ^  c2  -  °1  *max  “  oan  De  shovm 

(Ref  2:408)  that  the  expression 

-1  £  Z)  T,  c(i,g)cos(ivr<I  )cos(gw9)l  -  c0  £  1  (25) 

1 Li=0  g=0  1  d  J  d 

must  always  be  true.  To  calculate  c^  and  c2,  the  equations 


-..0  =  “  c2 


(26) 


+1*°  =  c1PmItx  "  c2 


(27) 


are  solved  simultaneously  for  c^  and  c2.  The  solutions  of 
equations  (26)  and  (27)  are 


C1  "  ^^Pmax  “  Pmin^ 


(28) 


c2  =  c1Pmax  ~  1 

(29) 

After  shifting  and  scaling  equation  (24)  can  he 

rewritten  as 

2  2 

cos(w)  =  X)  H  c(i,g)cos(iw. )cos(gw5) 
i=0  g=0  n  * 

(30) 

where 

w  »  arcos(c^cos(w)  -  c2) 

(31) 

c(0,0)  =  c^c(0,0)  -  c2 

(32) 

c(l,0)  =  c.,c(1,0) 

(33) 

£(0,1 )  =  c^c(0, 1 ) 

(34) 

e(i,i)  =  c^o.i) 

(35) 

c(l,2)  «=  c^c(l  ,2 ) 

(36) 

c(2,l)  =  c1o(2,1) 

(37) 

c(2,0)  =  c^c(2,0) 

(38) 

£(0,2)  *  c1 c(0,2 ) 

(39) 

£(2,2)  «  c.jc(2,2) 

(40) 

Although  shifting  and  scaling  always  produces  a  well- 
defined  mapping  from  the  w-axis  to  the  w2,w,|  plane,  the 
result  may  or  may  not  he  satisfactory  from  a  filter  design 
point  of  view.  Shifting  and  scaling  changes  the  location  of 
the  original  specified  contour  in  the  two-dimensional 
frequency  plane.  The  new  location  may  or  may  not  he  close  to 
the  original  location. 

The  third  course  of  action  is  to  perform  the  least 
squares  approximation  with  a  different  set  of  constraints. 
Changing  the  constraints  has  little  or  no  effect  on  the 
shape  of  the  contours  produced  hy  uhe  approximation  process 


Ill  Mathematical  'Preliminaries 
for  the  Calculation  of  the  Two- 
Dimensional  Impulse  Response 

In  this  chapter,  the  reader  will  he  acquainted  with  the 
mathematical  tools  and  concepts  necessary  in  order  to 
understand  the  presentation  in  chapter  IV.  The  Chebyshev 
polynomials  will  be  presented  and  several  important  relation¬ 
ships  used  in  this  investigation  will  be  derived. 

The  Chebyshev  polynomials  are  a  very  important  mathe¬ 
matical  tool,  because  they  greatly  simplify  the  analysis  of 
the  one-dimensional  filter  transformation  process.  With  the 
aid  of  the  Chebyshev  polynomials,  the  analysis  can  be  done 
in  terms  of  polynomials  rather  than  in  terms  of  trigono¬ 
metric  functions. 

Chebyshev  Polynomials  of  the  First  Kind 

Chebyshev  polynomials  of  the  first  kind  are  polynomials 
in  xn  (Ref  5 5 54-59).  Their  symbol  is  Tn(x).  ^be  Chebyshev 
polynomials  are  defined  by  the  relationship 

l’n(x)  =  cos(ncos~1x)  (41) 

where  n  can  be  any  integer  (positive,  negative,  or  zero)  and 
x  ranges  from  +1.0  to  -1.0.  If  n  =  0,  then 

?0(x)  =  x°  =  l.o  (42) 


If  ns  1,  then 
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(43) 


In  jenerrl,  the  following  recursion  relation  allows  the  cal¬ 
culation  of  any  Chebyshev  polynomial  if  the  preceding  two 
are  known: 

^n+l1-^  =  2x2n(x)  "  Tn_-j  (x)  (44) 

Just  as  the  Chebyshev  polynomials  T^(x)  can  be  written  as 
polynomials  in  terms  of  the  powers  of  x,  the  process  can  be 
reversed  and  the  powers  of  x  can  be  written  in  terms  of 
Tn(x).  Table  I  gives  the  first  12  Chebyshev  polynomials 
expressed  in  terms  of  the  powers  of  x. 


TABLE  I 


Chebyshev  Polynomials  of  the  First  Kind 


Tq(x)  =  1 
T1 (x)  =  x 
T2(x)  =  2x2-1 
T^(x)  =  4x**-3x 
T4(x)  =  8x4-8x2+1 
T5(x)  =  16x5-20x5+5x 
Tg(x)  =  32x6-48x4+18x2-1 
T^(x)  »  64x7-1 12x^+56x^-7x 
Tg(x)  =  128x8-256x6+160x4-32x2+1 
®9(x)  =  256x9-576x7+432x5-120x5+9x 
T1q(x)  =  512x10-1280x8+1120x6-400x4+50x2-1 
T^Cx)  =  1024x11-2816x9+2816x7-1232x5+220x5-11x 


Ci 


( 


Table  II  gives  the  first  12  powers  of  x  expressed  in  terms 
of  Tn(x) . 


TABLE  II 

Powers  of  x  in  Terms  of  Tn(x) 


0 


=  T, 


=  T. 


x  = 


3  _ 


x'  = 


X  = 


X  = 


X  = 

x7  * 
x8  = 
x9  = 
x10  = 
x11  . 


1/2(T2+Tq) 

1/4C®3+3®1 ) 

1/8(T4+4T2+3T0) 

1/16(T5+5T5+10T1) 

1/32(T6+6T4+15T2+10T0) 

1/64(^+715+2113+35^) 

1/128 (T8+8T6+28T4+56T2+35T0 ) 
1/256(T9+9T7+36T5+84T5+126T1 ) 

1/51 2 (T10+10I8+45T6+1 20T4+210T2+1 26TQ) 

1  / 1 024 (Of1 1  +1 1  T9+55I?+1 65T5+33OT3+462T-J ) 


Forward  Chebyshev  Recursion:  One  Variable 
Given  the  equation 


k  .  k 

£  b(;j)x3,=<  £  a(j)T.(x) 

3=0  3=0  3 


(45) 


the  forward  Chebyshev  recursion  problem  consists  of  calcu¬ 
lating  the  b(3)‘s  when  the  aCjJ’s  are  known.  The  equation 
merely  states  that  the  sum  of  a  linear  combination  of 
Chebyshev  polynomials  can  also  be  expressed  as  a  polynomial 
in  terms  of  x.  A  recursive  relationship  for  the  b'CjjJ's  in 


is 

I)  . 

. 
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V 
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terms  of  the  a(o)*s  can  he  found  by  first  expanding  the 
right  side  of  equation  (45)  (the  x  of  T^Cx)  will  be  dropped 
for  convenience). 


k  v 

E  b(j)xk 

3=0 


a(0)T0  +  a(l)T1  +  a(2)T2  +  a(3)^  +  a(4)®4 

+  . . .  +  a(k)Tk  (46) 


Now  using  the  relationships  of  equations  (42),  (43),  and  (44) 
or  table  I;  the  Chebyshev  polynomials  on  the  right  side  of 
equation  (46)  are  written  in  terms  of  the  powers  of  x. 

I:  b(.i)xk  =  a(0)x°  4  a(l)x1  +  a(2){2x2-1  ]  +  a(3)[4x3-3x] 
3=0 

+  a(4)[8x^-8x2+1  ]  +  ...  +  a(k)[f(x)]  (47). 


Kow  collecting  like  terms  and  ordering  the  powers  of  x  on  the 
right  side  of  equation  (47)  yields 

E  b(j)xk  =  [a(0)-a(2)+a(4)+...]x°  +  [a(l  )-3a(3)+. .  -lx1 
3=0 

+  [2a(2)-8a(4)+..  .]x2  +  [4a(3)+. .  .]x3 

+  [  8a(4)+. . .]x^  +  . . .  .]xk  (48) 

Expanding  the  left  side  of  equation  (48)  and  equating 
coefficients  of  like  powers  of  x  yields 

b(0)  =  2°[a(0)-a(2)+a(4)-a(6)+a(8)->a(l0)+...]  (49) 

b(l )  =  2°[a(l)-3a(3)+5a(5)-7a(7)-i'9a(9)~11a(l1 )+...]  (50) 

b(2)  =  21  [a(2)-4a(4)+9a(6)-16a(8)-!-25a(10)-...]  (51 ) 

b(3)  =  22[a(3)-5a(5)+14a(7)-30a(9)+55a(1l)-...]  (52) 

b(4)  =  23[a(4)-6a(6)+2~Oa(8)-50a(lO)+...  ]  (53; 
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M;-)  =  24[a(5)-7a(7)+27a(9)-77a(4)+...] 

(54) 

b(6)  =  25[a(6)-3a(8)+35a(10)-...] 

(55) 

b(7)  =  2°[a(7)-9a(9)+44a(11 )-...] 

(56) 

b(8)  =  27[a(8)-10a(10)f. . 

(57) 

b(9)  =  28[a(9)-1 1a(1 1 )+. . .] 

(58) 

b(lO)  =  29[a(10)  +  ...] 

(59) 

b(1 1 )  =  210  [a(1 1 )+. . .] 

« 

(60) 

• 

• 

b(k)  =  2k"1a(k) 

(61) 

Now  putting  equations  (49)  through  (61)  in  matrix  form  yields 


b(0) 

2U 

1 

0 

-1 

0 

1 

0 

-1 

0 

1 

0  -1 

0 

•  •  • 

a(0) 

b(1) 

2° 

0 

1 

0 

-3 

0 

5 

0 

-7 

0 

9 

0 

-11 

•  •  • 

all) 

b(2) 

21 

0 

0 

1 

0 

-4 

0 

9 

0 

-16 

0  25 

0 

•  ♦  • 

a(2) 

b(3) 

22 

0 

0 

0 

1 

0 

-5 

0 

14 

0 

-30 

0 

55 

•  •  • 

a(3) 

b(4) 

23 

0 

0 

0 

0 

1 

0 

-6 

0 

20 

0  -50 

0 

•  •  • 

a(4) 

b(5) 

24 

0 

0 

0 

0 

0 

1 

0 

-7 

0 

27 

0 

-77 

•  •  • 

a(5) 

b(6) 

25 

0 

0 

0 

0 

0 

0 

1 

0 

—8 

0  55 

0 

t  •  • 

a(6.) 

b(7) 

26 

0 

0 

0 

0 

0 

0 

0 

1 

0 

-9 

0 

44 

•  •  • 

a(7) 

b(8) 

? 

0 

0 

0 

\  • 

0 

0 

0 

0 

1 

0  -10 

0 

«  «  • 

a(8) 

b(9) 

28 

0 

0 

0 

0 

0 

0 

0 

0 

0 

•  1 

0 

-11 

•  •  • 

a(9) 

b(10) 

29 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

•  •  • 

a.(  1 0 ) 

b(  1 1 ) 

2io 

0 

0 

0 

’  0 

0 

0 

0 

0 

0 

0 

0 

1 

•  •  • 

a(l  1 ) 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

•  • 

• 

• 

•  •  • 

• 

• 

b(k) 

2k-1 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

•  • 

•  • 

• 

• 

•  •  • 

a(k) 

(62) 
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•  w *4*  ;gww«w"w .  >■&  ^ 

..  ?  — . -  ■-■  - —  ' - -  - - - - 


Call  the  large  matrix  D.  The  elements  of  2)  are  related  by 
the  following  formulas: 


|D(1  ,m) t  ={°  ”  ZT}  (64) 

D(l,m)  =  0  for  m  £  1  (65) 

D(l,m)  =  1  for  1  =  m  (66) 


lD(l,m)l  =  lD(l,m-2)l  +  |D(l-1,m-l)|  for  m  ^  1  and 

1  ±  0  and 
1  %  1  (67!) 

The  signs  of  the  non-zero  elements  of  each  row  alternate  • 
between  +1  and  -1  starting  at  the  main  diagonal  element  in 
each  row. 

Thus  it  has  been  shown  that  the  b(d)'s  of  equation  (45) 
can  always  be  calculated  by  constructing  the  matrix  D  and 
then  applying  equation  (62). 


Backward  Chebyshev  Recursion:  One  Variable 
Given  the  equation 

£  a(j)T.(x)  =  £  h(j)x^  (68) 

d=o  d  j=o 

the  backward  Chebyshev  recursion  problem  consists  of  calcu¬ 
lating  the  a(j)’s  when  the  b ( j ) ’ s  are  known.  Again,  the 
equation  merely  states  that  the  sum  of  a  linear  combination 
of  Chebyshev  polynomials  can  also  be  expressed  as  a  polynomial 
in  terms  of  x.  A  recursive  relationship  for  the  a(d)fs  in 
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A  c 


terms  of  the  b(j)’s  can  be  found  -by  first  expanding  the 
f-  right  side  of  equation  (68)  (the  x  of  Tn(x)  will  again  be 

dropped  for  convenience). 

t  a(j)T,  =  b(o)x°  +  b(l)x1  +  b(2)x2  +  b(3)x5 
0=0  3 

+  b(4)x^  +  ...  +  b(k)x^  (69) 

How  using  the  relationships  of  equations  (42),  (43) »  and  (44) 
or  table  II;  the  powers  of  x  on  the  right  side  of  equation  (69) 
are  written  in  terms  of  the  Chebyshev  polynomials, 
k 

E  a(;j)T.  =  b(0)Tn  +  b(l  )T.  +  b(2)[l/2(I?+T  )] 
i=0  J  u  1  *  u 

+  b(3)[l/4(T3+3T1)]  +  b(4)[1/8(I4+4T2+3T0)] 

+  ...  +  b(k)[f (T(x))]  (70) 

q  Now  collecting  like  terms  and  ordering  the  Chebyshev 

polynomials  on  the  right  side  of  equation  (70 )  yields 
k 

E  a(o)T.  =  [b(0)+1/2b(2)+3/8b(4)+...]T 
3=0  3  ** 

+  [b(l)+3/4b(3)+...]T1 

+  [l/2b(2)+4/8b(4)+...]T2  +  [1/4b(3)+. .  .1^ 

+'[l/8b(4)  +  ...]T4  +  ...  ]Tk  (71) 

Expanding  the  left  side  of  equation  (71 )  and  equating 
coefficients  of  like  Chebyshev  polynomials  yi.  .ds 

a(0)  =  b(0)  +  1/2b(2)  +  3/8b(4)  +  10/32b(6)  +  35/128b(8) 

f  +  126/512b(l0)  +  ...  (72) 
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a(l )  =  b(l)  +  3/4b(3)  +  10/l6b(5)  +  35/64b(?) 

(  +  126/256b(9)  +  462/ 1 024b (11 )  +  ...  (73) 

a(2)  =  l/2b(2)  +  4/8b(4)  +  15/32b(6)  +  56/128b(8) 

+  210/51 2b(l 0)  +  ...  (74) 

a(3)  =  1/4b(3)  +  5/ 1 6b( 5 )  +  21/64b(7)  +  84/256b(9) 

+  530/  1024b  (1.1)  +  ...  (75) 

a(4)  *  1 /8b (4)  +  6/32b(6)  +  28/l28b(8)  +  1?0/5l2b(10) 

+  ...  (76) 


a(5)  =  1/1 6b(5)  +  7/64b(7)  +  36/256b(9) 
r,  +  165/1024b(1l)  +  ...  (77) 

a(6)  =  l/32b(6)  +  8/l28b(S)  +  45/512b(10)  +  ...  (78) 

a(7)  =  l/64b(7)  +  9/256b(9)  +  55/1024b(ll)  +  ...  (79) 

a(8)  *  1/I28b(8)  +  10/512b(1 1 )  +  ...  (SO) 

a(9)  =  1/2  56b (9 )  +  1l/l024b(11)  +  ...  (8l) 

a(10)  =  1/51 2b( 10)  +  ...  ^82) 

a(l 1 )  =  l/l 024o(1 1 )  +  ...  . 

/  • 

a(k)  =  2"(k_1)b(k)  <«) 

C 
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Now  putting  equations 

(72) 

through  (84)  in  matrix 

form  yields 

a(0) 

1  0 

1  0  3 

0  10 

0 

35 

0 

126 

0 

•  • 

b(0) 

a(l ) 

0  1 

0  3  0 

10  0 

35 

0 

126 

0 

462 

•  • 

b(1 ) 

a(2) 

0  0 

1  0  4 

0  15 

0 

56 

0 

210 

0 

•  • 

b(2) 

a(3) 

0  0 

0  1  0 

5  0 

21 

0 

84 

0 

330 

•  • 

b(3) 

a(4) 

0  0 

0  0  1 

0  6 

0 

28 

0 

120 

0 

•  • 

b(4) 

a(5) 

0  0 

0  0  0 

1  0 

7 

0 

36 

0 

165 

•  • 

b(5) 

a(6) 

0  0 

0  0  0 

0  1 

0 

8 

0 

45 

0 

•  • 

b(6) 

a(7) 

0  0 

0  0  0 

0  0 

1 

0 

9 

0 

55 

•  • 

b(7) 

a(8) 

0  0 

0  0  0 

0  c 

0 

1 

0 

10 

0 

•  • 

b(8) 

a(9) 

0  0 

0  0  0 

0  0 

0 

0 

1 

0 

11 

•  • 

b(9) 

aCIO) 

0  0 

0  0  0 

0  0 

0 

0 

0 

1 

0  . 

*  • 

b(lO) 

a(l1 ) 

• 

0  0 

•  • 

0  0  0 

•  •  • 

0  0 

•  • 

0 

• 

0 

• 

0 

• 

0 

• 

1 

• 

•  • 

b(l  1 ) 

• 

• 

a(k) 

•  • 

•  • 

•  • 

•  • 

•  •  • 

•  •  • 

•  •  • 

•  •  • 

•  • 

•  • 

•  • 

•  • 

• 

• 

• 

* 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

•  • 

•  • 

•  t 

• 

• 

b(k) 

T  T 

2  4  8' 

16  32  £4 

— 

- - 
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2ti 

2y 

2 1?. 2 

k-1 

(85) 

where  1 

;he  i 

lumbers  at 

the  bottom  of  each 

lolumn  indicate 

that  all  the  entries 

in  the  column  are  to  be  divided  by 

that  numbei 

<* 

• 

Gall  1 

;he  large  matrix 

c. 

The  elements  of  C 

are  related 

by  the 

following  formulas: 

C(l,m)  = 

t  for  1 

=  m 

(86) 

C(l,m] 

=  ( 

)  for  m 

<  1 

(87) 

G (0 ,  m)  =  C(1 ,m-1 ) 


(88) 


( 


( 


C(l,m)  =  20(0, m-1)  +  C(2,m-l)  (89) 

C(l,m)  =  C(l-1,m-l)  +  C(l+1,m-l)  for  m  >  1  and  1  =3f  1 

and  1=^.0  (90) 

Thus  it  has  "been  shown  that  the-  a(j)'s  of  equation 
(68)  can  always  be  calculated  by  constructing  the  matrix  C 
and  then  applying  equation  (85 ) • 

Backward  Chebvshev  Recursion:  Two  Variables 
Given'  the  equation 
1c  1c  "  1c  1c 

Y  E  a(i,  j)T,(x)T  .(y)  =  Y  Y  Ui,j)xV  (91 ) 

i=0  3-0  .  i-0  3=0 

the  backward  Chebyshev  recursion  problem  in  two  variables 

consists  of  converting  the  b(i,;j)*s  into  the  a(i,j)'s  when 

the  b(i,3)'s  are  known.  This  can  be  done  by  fixing  i  • 

(denoted  by  i)  and  separating  the  summations  on  the  -right 

side  of  equation  (91 ). 

E  E  a(i,j)T.  (x)T.(y)  =  Y  xif  Y  t>(i,3)y^l  (92) 

i=0  ,j=0  •  '  3  i=0  1-3=0  '  J  ' 

Now  expanding  the  right  side  of  equation  (920  yields 

'  *  *  * 

k  k  -jc 

E  E  a(i,g)T.(x)T  .(y)  =  x°  Y  M0>3)y** 
i=0  j=0  *  3  .1=0 

1c  "  •  *  1c 

+  x1  Y  '0(1 , 3 ).y^..+  . . .  •  +  xkX  t>Ck,j)y3  (93) 

.  3-0  .  ’  .  ■  D=0 . 

Using  the  backward  Chebyshev  recursion  in  one  variable, 

each  individual  summation  on  the  right  side  of  equation  (93) 

k.  . 

can  be  converted  from  the.  form  Y  t>(i,,l)yJ  to4  the  form 

3=0 
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?  f 

lv-'  t 


E  d(i>D)2^(y)  by  use  of  eouation  (85). 

0=0 

E  £  a.(i,j)T  (x)T.(y)  -  x°  £  d(0,j)T.(y) 
i=0  j=0  1  3  o=0  3 

.  1c  .  3c 

+  x1  £  d(l ,  o  )'f  .  (y)  +  ...  +  x'  £  d(lc,o)T,(y)  (94) 

0=0  3  0=0  3 

£  xi[  £  d(i, o)T,(y)l  (95) 

i-0  [o=0  3  J 

'EE  d(i,j)x%,(y)  (96) 

i=0  0=0  3 

Nov;  fixing  o  (denoted  by  j.)  and  separating  the  summation  on 
the  right  side  of  equation  (96)  yields 

£  E  a(ij)T.(x)T,(y)  =  E  Ti(y)f  E  (97) 

i=0  o=0  1  3  j=0  3  Li=0  J 

Expanding  the  right  side  of  equation  (97)  yields 

k  k  k  . 

E  £  a(if  j)T.  (x)T  Ay)  =  Tn(y)  £  d(i,0)xi 

i=0  o=0  1  3  u  i=0 

1c  iC 

+  T1(y)E  d(j,i)xi  +  ...  +  rv(y)E  dd^Jx1  (98) 

1  i=0  K  i=0 

Using  the  backward  Ohebyshev  recursion  in  one  variable,  each 

individual  summation  on  the  right  aide  of  equation  (98)  can 

k  . 

be  averted  form  the  form  E  d(i,jj>)x1  to  the  form 
k  i=0 

E  a(i, 2)T.(x)  by  use  of  equation  (85). 

3=0  3 

k  k  k 

£  £  a(i,o)T.(x)T .(y)  =  20(y)  E  a(i,0)T.(x) 

i=0  o=0  1  3  U  i=0  1 

k  k 

+  T.,(y)  £  a(i,1)2i(x)  +  ...  +  \(y)  E  a(i,k)Ti(x)  (99) 


ULsli'S 


-vs.i - 


=  E  E  a(i,i)T.  (:c)l  (100) 

j=0  a  Li=0  -L  J 

k  k 

=  E  E  aU,o)T.(x)T.(y)  1101 ) 

i=0  3=0  J 

Thus  it  has  been  shov/n  that  the  a(i,3)’s  of  equation  (91 ) 
can  always  be  calculated  by  performing  the  backward 
Chebyshev  recursion  in  one  variable  twice . 

This  chapter  has  presented  the  Chebyshev  polynomials 
and  several  derivations  using  these  polynomials.  The 
relationships  developed  in  this  chapter  will  greatly 
simplify  the  analysis  of  the  transformation  process  that  is 
presented  in  the  next  chapter. 


IV  Calculation  of  the  Two-Dimensional 
Impulse  Response 

The  theory  describing  the  conversion  of  a  one¬ 
dimensional  digital  filter  into  a  two-dimensional  digital 
filter  will  now  be  presented.  In  the  first  part  of  this 
chapter,  the  frequency  response  equation  of  one  class  of 
two-dimensional  digital  filters  will  be  derived.  The  second 
part  of  the  chapter  will  start  with  the  general  equation 
for  the  frequency  response  of  a  one-dimensional  digital 
filter.  Then  by  applying  some  constraints  and  using  the 
McClellan  Transformation,  it  will  be  shown  that  this 
equation  can  be  transformed  into  the  equation  derived  in  the 
first  part  of  the  chapter.  The  chapter  will  conclude  with  a 
discussion  of  the  advantages  and  disadvantages  of  using  a 
particular  order  (first  or  second)  transformation  in  the 
filter  design  process. 

Form  of  the  Two-Dimensional  Digital  Filters 

In  this  section,  constraints  will  be  placed  on  the 
general  equation  describing  the  frequency  response  of  two- 
dimensional  digital  filters.  After  the  constraints  have 
been  applied,  the  resulting  equation  will  describe  the 
frequency  response  of  the  class  of  two-dimensional  digital 
filters  that  can  be  designed  by  the  transformation  of 


variable  process, 

let  H2D(i,m)  be  the  real,  causal,  linear  shift- 


{' 


invariant,  f  ini te-durat i on ,  impulse  response  of  a  two- 
dimoncional  digital  filter  defined  over  the  interval 
0  £  1  £  £1-1,  0  ^  rn  ^  hi  -1 .  Taking  the  two-dimensional 
Rourier  transformation  of  K22>(l,ra)  yields  the  two-dimensional 
frequency  response, 


11N-1  K1-1  -jv/.l 

H(v/9,v/1)  =  IZ  ]£  H2D(l,m)e  '  e  ' 


(102) 


1=0  m=0 


The  frequency  response  is  a  periodic  function  of  w^  and  w^ 
with  a  period  of  2»pi.  It  can  be  shown  (Ref  3:271)  that  if 
t*1  is  constrained  to  be  odd  and  the  symmetry  conditions 


H2D(H1-1-d,m)  =  H2D(d,m)j  d  =  0,1 , . . . ,{111-1 )/2  =  kl  (103) 
K2D(l,N1-1-d)  *  H2D(l,d);  d  =  0, 1 , . . . , (HI-1 )/2  =  kl  (104) 


are  imposed,  then  the  two-dimensional  frequency  response  can 
be  written  as 

-jkl  (w5+w,  )rki  kl 

H(w9,w..)  =  e  2Z  5Z  H2D(l.m)cos(wil) 


«-l=0  m=0 

•  cos(w2m)j  (105) 

where  (Ref  3:271) 

H23(0.0)  =  H2D(ki .kl )  (106) 

H2J(0.m)  =  2*K2D(k1 ,k1-m);  m  =  1,2,...,k1  (107) 

H2D(1,0)  =  2*H2D(k1-l,k1 ) ;  1  =  1,2,...,k1  (108) 

H?D(l.m)  =  4*H2D(k1-l,k1-m);  1  =  1 . kl  and 

m  =  1 , . . .  ,k1  (109) 


c 


One-Dimensional  to  Tv/o-Dimensional  Filter  Transformation 

In  this  section,  the  equation  describing  the  frequency 
response  of  a  class  of  one-dimensional  filters  will  be  trans¬ 
formed  into  the  equation  describing  the  frequency  response  of 
a  class  of  two-dimensional  digital  filters.  This  will  be 
done  by  first  applying  constraints  to  the  equation 
describing  the  one-dimensional  digital  filters  and  then 
applying  the  McClellan  Transformation.  . 

let  h(n)  be  the  real,  causal,  linear  shift- invariant, 
finite-duration,  impulse  response  of  a  one-dimensional  digital 
filter  defined  over  the  interval  0  L  n  {.  N2-1 .  Taking  the 
Fourier  transformation  of  h(n)  yields  the  frequency  response, 
H(w)  (Ref  6:19-21). 

N2-1  •  ,im 

H(w)  -  £  h(n)e~own  (110) 

n*0 

The  frequency  response  is  periodic  in  frequency  with  period 
2»pi,  It  can  be  shown  (Ref  7:77)  that  for  one  class  of 
linear  phase,  FIR,  digital  filters 

h(n)  =  h(N2-1-n)  (ill) 

Using  equation  (111)  and  constraining  N2  to  be  odd,  the 
frequency  response  can  be  written  as  (Ref  7; 81 -82) 

k2 

H(w)  =  e~^v/k2  Y\  Ii1D(n)cos(wn)  (112) 

n=0 

where 

Y2  =  (K2-D/2  (113) 

H1D(0)  =  h(k2)  (^  14) 
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(115) 


HlD(n)  =  2.h(l:2-n);  n  =  1,2,...,k2 

3y  letting  x  =  cos(w)  and  using  the  definition  of  the 
Chebyshev  polynomial  (equation  (41 ) ) ,  equation  (112)  becomes 

lc2 


K(w) 


_  0-3v/k2 


E  HI D(n)T  (x) 
n=0 


(116) 


Using  the  forward  Chebyshev  recursion  in  one  variable 
(equation  (62)),  equation  (116)  is  converted  to 

k2 

H(w)  =  e“3wlc2  £  Hi  2CHEB(n)xn 
n=0 

Since  x  =  cos(w),  equation  (117)  can  be  rewritten  as 


(117) 


H(w) 


-jwk2 


[  E  HlDCHEB(n)  •  [cos(w)]nl  (118) 

Ln=0  J 

Nov/  by  substituting  the  generalized  McClellan  Transformation 
for  cos(v/)  (equation  (3)) 

[k2 

E  HIDCHEB(n) 
n=0 

♦j^EQ  c(l,m)cos(lw1  )cos(mvr2)J  ]  (119) 

In  the  generalized  McClellan  Transformation  let  a  =  b  and  let 
the  generalized  McClellan  Transformation  be  represented  by  P. 
Equation  (119)  can  be  partially  expanded  to  yield 

H(w)  =  e"^wk2  HI DCHEB(o)P°  +  HIDCHEBOJP1  +  ... 

+  HI  BCHEB(k2  )Pic2  j  ( 1 20  ) 

If  equation  (120)  is  completely  expanded,  the  resulting 
terms  can  be  regrouped  by  powers  of  cos(v^)  and  cosCv/g)  and 


36 


represented  by  the  following  summation  (lief  4:111-116) 


-;,rvo  fG*k2  a,lc2 

=  e"3  Yi  Y  H2DOIESB(l,m)(cos(v/1 ) ) 

^  1  Ll=0  m=0  n  1 


G 


r 


(cos(v/2))m 


(121 ) 


Now  using  the  Chebyshev  recursion  in  two  variables 
(equations  (91 )  through  (101 )),  equation  (121)  is  converted  to 

a.k2  a»k2 


HCwgfW^  =  e 


-,iwk2 


1C  1C  H2D(l,m)cos(w1l)cos(w0m)  (122) 

1=0  m=0  1  * 


Equation  (122)  is  the  desired  result.  It  has  the  same  form 
as  equation  (105) « 

Order  of  the  Transformation 

From  the  summation  indices  of  equation  (121),  it  can  be 
seen  that  for  any  two-dimensional  digital  filter  designed  by 
the.  generalized  McClellan  Transformation  (equation  (5)); 
there  are  (a.k2  +  1)(a.k2  +1)  or  ^ a»  (N2  -1  )/2+lJ Ja.  (N2-1  )/2+lJ 
unique  two-dimensional  impulse  response  samples.  For  the 
first  order  transformation  a  =  1.  The  number  of  unique  im¬ 
pulse  response  samples  is  ^(N2-1  )/2+lj  ^(N2-l)/2+lj  or 
approximately  N2  /4..  For  the  second  o'rder  transformation 
a  =  2.  The  number  of  unique  impulse  response  samples  is 
(N2-1+1 )(N2-1+1 )  =  N2  .  Therefore,  for  a  given  one¬ 
dimensional  filter  order,  N2,  the  design  using  a  second 
order  transformation  will  produce  approximately  four  times  as 
many  unique  two-dimensional  impulse  response  samples  as  the 
design  using  the  first  order  McClellan  Transformation.  If 
the  filter  designer  plans  to  implement  the  tv/o -dimensional 
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filter  design,  it  is  obviously  easier  to  implement  a  filter 
designed  by  using  the  first  order  McClellan  Transformation. 

Summary 

In  this  chapter  it  has  been  demonstrated  that  a  class 
of  one-dimensional  filters  can  be  transformed  into  a  class 
of  two-dimensional  filters  via  the  McClellan  Transformation. 
It  has  also  been  shown  that  for  a  given  one-dimensional 
filter  order,  a  design  us  mg  the  second  order  transformation 
generates  approximately  four  times  as  many  unique  impulse 
response  samples  as  a  design  using  the  first  order  trans¬ 
formation. 


The  salient  characteristics  of  the  two-dimensional 
digital  filter  design  program  developed  in  this  investigation 
are  discussed  in  order  to  acquaint  the  reader  with  the 
program.  The  filter  design  program  consists  of  seven 
separate  programs.  They  are  called  CONTROL,  CURFIT,  PROTYPE, 
FORCHEB,  EXPAND,  BACKCHB,  and  GRAPH.  After  an  overview  of 
the  program  as  a  whole,  each  of  the  seven  separate  programs 
will  be  described. 

Overview 

The  main  objectives  at  the  beginning  of  this  investiga¬ 
tion  were  to  develop  an  interactive  computer  urogram  that 
would  design  a  class  of  two-dimensional  digital  filters  and 
would  be  easy  to  use.  The  minimum  output  was  to  be  the  two- 
dimensional  impulse  response  necessary  to  approximate  a 
desired  frequency  response. 

The  two-dimensional  digital  filter  design  program 
developed  in  this  investigation  will  design  linear  phase, 
finite  impulse  response,  linear  shift-invariant,  two- 
dimensional,  digital  filters.  This  is  done  by  transforming 
a  one -dimensional  digital  filter  with  a  frequency  response 
of  the  form  (chapter  IV) 

k2 

H(w)  =  53  H1D(n)cos(wn) 

n=0 


(112) 


into  a  two-dimensional  digital  filter  with  a  frequency- 

response  of  the  form  (chapter  IV) 

rkl  kl 

H(w2,w.j)  =  e~3’k1^w2+w1^  [J0  K2D(,l,m)cos(w^l) 

•  cos(w2m)J  (105) 


"by  using  the  generalized  McClellan  Transformation  (chapter 
II). 

a  h 

mCwpjW.)  *  £  c(i,g)cos(iw1  )cos(gwc>)  (3) 

*  1  i=0  g=0  1  1 

The  filter  designer  can  elect  to  use  either  the  first  order 

transformation  (a  =  b  =  1 )  or  the  second  order  transformation 

(a  =  b  =  2). 

Although  the  program  can  design  lowpass,  highpass,  band¬ 
pass,  bandstop,  all-pass,  and  multiband  digital  filters;  it 
should  be  kept  in  mind  that  only  th3  shape  of  a  single  con¬ 
tour  in  the  two- dimensional  frequency  plane  can  be  closely 
approximated  by  the  design  program  (chapter  II).  Therefore, 
the  program  lends  itself  to  the  design  of  lowpass,  highpass, 
and  all-pass  filters. 

The  design  program  that  was  developed  is  an  interactive 
program.  This  was  necessary  for  two  reasons.  First,  there 
is  no  guarantee  that  the  McClellan  Transformation  will 
produce  a  well-defined  mapping  from  the  one-dimensional 
frequency  axis,  w,  to  the  two-dimensional  frequency  plane, 
w2,w1 .  If  the  mapping  is  ill-defined,  filter  designer  inter¬ 
vention  is  necessary.  Second,  the  one-dimensional  filter 
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or 


one-dimensional  filter  with 


\zr  necessary  Uo  design  a 
desired  characteristics  (band  error,  etc.)  is  not  known  in 
advance.  -This  requires  experimentation  on  the  part  of  the 
filter  designer. 

The  required  inputs  to  the  design  program  are  a  set  of 
points  uhat  defines  the  contour  in  the  two-dimensional 
frequency  plane  that  is  to  be  approximated,  and  the  parameters 
necessary  to  design  the  one-dimensional  digital  filter. 

This  filter  will  be  transformed  into  a  two-dimensional 
filter.  The  design  program  will  output  the  contour  approx¬ 
imating  function,  the  impulse  response  samples  of  the  one- 
dimensional  prototype  filter,  a  graph  of  the  magnitude  of 
the  two-dimensional  frequency  response  in  the  first  quadrant 
(the  frequency  response  has  quadrantal  symmetry),  and  the 
unique  two-dimensional  impulse  response  samples.  As  options, 
the  program  will  output  sets  of  points  for  any  two- 
dimensional  contours,  a  Calcomp  plot  of  the  one-dimensional 
filter's  magnitude  versus  frequency  characteristic,  a 
Calcomp  plot  of  the  two-dimensional  contours,  and  a  Calcomp 
plot  of  the  two-dimensional  filter's  magnitude  versus 
frequency  characteristic. 

Figure  2  shows  design  times  for  typical  two-band 
filters  designed  on  the  CDC  6600  computer  (Fortran  IV 
compiler).  The  filters  were  designed  with  one  pass  through 
the  program.  The  scaling  routine  and  the  first  order 
McClellan  Transformation  were  used.  The  design  times  will  be 
roughly  double  if  the  second  order  McClellan  Transformation 
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Fig  3,  High  Level  Flow  Chart  of  the  Design  Program 
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Pi- o gram  CONTROL 

The  main  function  of  program  CONTROL  is  to  call  the 
other  six  programs  that  make  up  the  two-dimensional  filter 
design  program.  It  also  allows  the  user  to  interactively 
terminate  execution  of  the  design  program  at  several  places 
if  he  wishes.  A  high  level  flow  chart  of  program  CONTROL  is 
shown  in  figure  4. 

Program  CURFIT 

The  primary  function  of  program  CURPIT  is  to  calculate 
the  constants  of  the  McClellan  Transformation.  It  also 
tests  to  see  whether  or  not  a  well-defined  mapping  will  he 
produced  hy  the  transformation. 

The  first  thing  that  program  CURPIT  does  is  calculate  the 
c(i,g)’s  of  equation  (3).  This  is  done  hy  solving  a  set  of 
simultaneous  linear  equations  of  the  form  A*CURVFIT  =  B. 

The  elements  of  the  arrays  A  and  B  depend  on  w,  a  set  of 
points  defining  a  contour  in  the  Wg,w^  plane,  and  a  set  of 
constraints.  Subroutine  LINSQ  solves  the  set  of  equations 
and  returns  the  c(i,g)’s  in  the  CURVFIT  array. 

After  the  c(i,g)'s  are  calculated,  equation  (22)  is 
evaluated  on  a  grid  of  points  in  the  v/g , w^  plane  in  order  to 
see  if  the  mapping  from  the  w-axis  to  the  v/g»w^  plane  will 
be  well-defined.  If  the  .napping  is  ill-defined,  the  user 
can  -elect  (interactively )  to  start  over,  choose  a  new  set  of 
constraints  and  repeat  the  approximation  process,  shift  aricT* 
scale,  or  terminate  the  design  program.  If  shifting  and 
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Call  Overlay  (6,0) 
(Program  BACKCHB) 


Call  Overlay  (2,0) 
(Program  GRAPH) 


Fig  4.  Flov/chart  of  Program  CONTROL 


scaling  is  chosen,  the  program  calculates  the  new  c(i,g)'s 

by  equations  (26)  through  (40).  F^,,  and  F  .  (eouations 

(26)  and  (27))  are  calculated  by  evaulating  equation  (3)  on  a 

grid  of  points  in  the  Wg 1 plane. 

Once  a  set  of  c(i,g)’s  is  calculated  that  produces  a 

well-defined  mapping,  equation  (3)  is  converted  from  the 
a  b 

form  22  52  c(i,g)cos(iw1  )cos(gw9)  to  the  form 

i=0  g=0 

a  b 

23  22  MCTRM(i,g)  [cos(w.| )]  1  [cos(w2)]S  by  using  equations 

1—0  g— 0 

(41)  through  (44).  A  high  level  flowchart  of  program  CURFIT 
is  shown  in  figure  5. 

Program  PRjTYPE 

The  primary  function  of  program  PROTYPE  is  the  calcu¬ 
lation  of  the  impulse  response  of  the  one-dimensional  filter 
that  will  be  transformed  into  the  two-dimensional  filter. 
Program  PROTYPE  is  a  modified  version  of  the  computer  program 
described  in  reference  8.  There  are  several  good  one¬ 
dimensional  filter  design  programs  available  in  the  litera¬ 
ture.  The  program  described  in  reference  8  was  chosen 
because  it  is  well  documented.  Program  PROTYPE  uses  the 
Remez  exchange  algorithm  to  design  one-dimensional  filters 
with  minimum  weighted  Uhebyshev  error  in  the  filter  bands. 

For  a  complete  description,  including  detailed  flowcharts 
and  design  examples,  of  the  one-dimensional  filter  design 
program  used  in  PROTYPE  see  reference  8.  Program  PROTYPE 
outputs  the  one-dimensional  impulse  response  and  a  summary 

46 


lout  Order  of  the  Transf ormation 


Input  v/  and  Input  *  Constraints 


| _ 3 

Call  YOU 

c _ _ 

RSUB  | 

_ i 

u _ 

/ _ _ 

Output  Approximating  Function, 
Constraint  Equations,  and  w 


.  High  Level  Flowchart  of  Program  CURFIT 


of  design  parameters  input  by  the  user. 


Program  FORCHEB 

The  primary  function  of  program  FORCHEB  is  bo  perform 
the  forward  Chebyshev  recursion  in  one  variable.  The  first 
thing  that  program  FORCHEB  does  is  convert  the  one-dimensional 
impulse  response,  h(n),  to  H1D(n)  (equation  (112))  by  using 
equations  (113)  through  U15).  Then  the  program  generates 
the  D  array  of  equation  (62)  (called  DAV  in  the  program) 
and  converts  HID  (equation^  12))  to  H1DCHEB  (equation  (117)) 
by  performing  the  forward  Chebyshev  recursion  in  one  variable 
(equation  (62)).  Finally  FORCnEB  calculates  the  magnitude 
of  the  two-dimensional  frequency  response  by  using  equation 
(118)  at  121  points  in  the  w2,w1  plane  and  outputs  these 
values  as  a  graph.  The  graph  allows  the  user  to  sec  roughly 
where  each  filter  band  lies  in  the  two-dimensional  frequency 
plane.  A  high  level  flowchart  of  program  FORCHEB  is  shown 
in  figure  6. 

Program  EXPAHD 

Program  EXPAHD  converts  equation  (119)  to  equation  (121) 
by  performing  the  required  multiplications  and  summations. 
Essentially  all  of  the  terms  of  equation  (120)  are  generated 
and  then  added  together.  The  multiplication  routine 
multiplies  like  a  person  would  with  paper  and  pencil.  For 
each  P  (equation  (120)),  every  term  of  the  multiplier 
multiplies  every  terra  of  the  multiplicand  and  the  resulting 
partial  sums  are  added  together  to  genei'ate  each  P. 
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Fig  6.  High  Level  Flowchart  of  Program  FORCHEB 
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Program  BACKCHB 

The  primary  function  of  program  BACKCHB  is  to  perform 
the  backward  Chebyshev  recursion  in  two  variables.  The 
first  thing  BACKGHB  does  is  to  generate  the  array  C  of 
equation  (85)  (called  GEC  in  the  program).  Then  by  using 
equation  (85)  twice,  H2DCHEB  (equation  (121))  is  converted 
to  H23)  (equation  (121)).  Finally  H2D  is  converted  into  the 
two-dimensional  impulse  response  by  using  equations  (106) 
through  (109)  solved  for  H2D.  The  output  of  BACKCHB  consists 
of  a  list  of  the  unique  two-dimensional  impulse  response 
samples  plus  the  symmetry  formulas  necessary  to  determine 
the  non-unique  impulse  response  samples.  The  impulse  response 
constitutes  the  filter  design  as  defined  in  this  investigation. • 
The  symmetry  formulas  are  based  on  equations  (105;  and  (104). 

A  high  level  flowchart  of  program  BACKGHB  is  shown  in 
figure  7. 

Program  GRAPH 

Program  GRAPH  generates  most  of  the  plots  produced  by 
the  design  program,  /ill  plots  are  optional  and  include  a 
Calcomp  plot  of  the  one-dimensional  filter's  magnitude 
versus  frequency  characteristic  and  a  Calcomp  plot  of  the 
tv/o -dimensional  contours.  These  plots  give  the  user  a  visual 
means  of  judging  ho w  close  the  designed  two-dimensional 
filter  is  to  the  desired  two-dimensional  filter.  The 
program  will  also  generate  sets  of  points  for  any  two- 
dimensional  contours.  This  allows  the  user  to  determine  the 
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High  Be /el  Flowchart  of  Program  BACKCHB 


exact  location  ox  the  band  edges  of  the  two-dimensional 
filter.  Finally,  the  program  creates  the  file  (tape2) 
necessary  for  the  Calcomp  plot  of  the  two-dimensional 
filter’s  magnitude  versus  frequency  characteristic.  Another 
program  is  used  to  generate  the  actual  points  and  plot  the 
three-dimensional  figure,  The  three-dimensional  figure  ’ 

gives  the  user  a  pictorial  representation  of  the  magnitude  j 

characteristic  of  the  two-dimensional  filter. 

Subroutine  F0RD3R  generates  the  points  for  the  plot  of 
the  two-dimensional  contours  when  the  first  order  McClellan  I 

i 

Transformation  is  used  for  the  two-dimensional  filter  design. 

This  is  done  by  using  the  equation  of  the  first  order  | 

McClellan  Transformation  solved  for  .  A  curve  is  plotted  1 

for  the  eleven  values  of  w  from  O.Opi  to  I.Opi  at  O.lpi 
intervals.  This  spacing  gives  the  plot  an  uncluttered 
appearance. 

Subroutine  SDORDER  generates  the  points  for  the  plot  of 
the  two-dimensional  contours  when  the  second  order  McClellan 
Transformation  is  used  for  the  two-dimensional  filter  design. 

This  is  done  by  using  the  equation  of  the  second  order 
McClellan  Transformation  solved  for  w^ .  This  equation  is  a 
quadratic  and  can  have  two  solutions  for  each  w^ .  If  two 
solutions  exist  then  a  curve  is  plotted  for  the  eleven  values 
of  w  from  O.Opi  to  I.Opi  at  O.lpi  intervals  for  each  solution 
(22  curves  total).  Again,  this  spacing  gives  the  plot  an 
uncluttered  appearance.  The  eleven  curves  for  one  solution 


curves  for  the  other  solution  have  an  "x"  at  one  or  both  ends 
of  each  curve.  If  the  quadratic  has  only  one  solution  for 
each  w^  then  only  one  set  of  eleven  curves  is  plotted.  A 
high  level  flowchart  of  program  GRAPH  is  sh own  in  figure  8. 

Summary 

This  chapter  has  presented  a  brief  description  of  the 
two-dimensional  filter  design  program  developed  in  this 
investigation.  Each  of  the  seven  separate  programs  that 
make  up  the  filter  design  program  were  described. 
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Results 


This  chapter  presents  the  results  from  five  typical  two- 
dimensional  filter  designs  using  the  computer  program 
developed  in  this  investigation.  A  wide  variety  of  contour 
shapes  were  used  in  the  filter  designs.  The  designs  clearly 
illustrate  the  flexibility  of  the  transformation  of  variable 
technique  in  designing  two-dimensional  digital  filters. 

Filter  Design  ^ 

The  first  filter  design  utilized  hyperbolic  contours. 

Figure  9  shows  a  plot  of  the  two-dimensional  contours.  The 
following  is  a  summary  of  the  data  pertaining  to  the  contours, 

1.  Transformation:  second  order 

2 

2.  Equation  defining  the  desired  contour:  Wj  =  *3  / 2w2 

3.  Approximating  function  constants: 

A=. 71797  B=. 37441  G=. 37443  D=-. 49945  E=. 12559 

F=. 12557  G=-,0930  H=.-0930  1=-. 05255 

Figure  10  shows  a  plot  of  the  one-dimensicnal  filter's 

magnitude  versus  frequency  characteristic.  The  following  is 

a  summary  of  the  design  parameters. 

1 .  Number  of  transition  bands :  2 

2.  Transition  band  edge  frequencies:  ,4pi,.5pi;  ,7pi,.8pi 

3.  Magnitude  for  each  band:  0,  1,0 

4.  Ratio  of  the  band  errors:  1,  10,  1 

5.  Deviation  in  each  tend:.  .006,  .0006,  .006 

A  one-dimensional  filter  order  of  57  was  required  to  meet  the 
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Filter  Design  1 :  One-Dimensional  Frequency 
Response 


design  parameter  specifications.  Figure  11  chows  a  plot  of 
the  two-dimensional  filter's  magnitude  versus  frequency 
characteristic. 

Filter  Design  2, 

The  second  filter  design  utilised  triangular  contours. 
Figure  12  shows  a  plot  of  the  two-dimensional  contours.  The 
following  is  a  summary  of  the  data  pertaining  to  the  contours. 

1.  Transformation:  second  order 

2.  Set  of  points  defining  the  desired  contour  (all 
coordinates  times  pi):  (0,0),  (.1,.l),  (.2, .2),  (.3, .3), 
(.4, .4),  (.5, .3),  (.6, .2),  (,7,.1),  (.8,0) 

3.  Approximating  function  constants: 

A=-. 72211  B=-. 37665  C=-. 25873  D=. 35644  3=-. 2651 

F=-. 09590  G=  .10787  H=  .19347  X=*. 06794 

Figure  13  shows  a  plot  of  the  one-dimensional  filter's 

magnitude  versus  frequency  characteristic.  The  following  is 

a  summary  of  the  design  parameters. 

1.  Humber  of  transition  bands:  1 

2.  Transition  band  edge  frequencies:  .87pi,  .9pi 

3.  Magnitude  for  each  band:  0,  1 

4.  Ratio  of  the  band  errors:-  1,  3 

5.  Deviation  in  each  band:  .12,  .04 

A  one-dimensional  filter  order  of  57  was  required  to  meet  the 
design  parameter  specifications.  Figure  14  shows  a  plot  of 
the  resulting  two-dimensional  filter's  magnitude  versus 
frequency  characteristic. 
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Pig  1 1 .  Filter  Design  1 :  Tv/o-Dimensional  Frequency  Respons 


Filter  Design  \ 

The  third  filter  design  utilises  serai-circular  contours. 
Figure  15  shows  a  plot  of  the  two-dimensional  contours.  The 
following  is  a  summary  of  the  data  pertaining  to  the  contours. 

1.  Transformation:  second  order 

2.  Set  of  points  defining  the  desired  contour  (all 
coordinates  times  pi):  (.6, .6),  (.55,. 55),  (.5, .5), 

(.45, .45),  (.4, .4),  (.45, .35),  (.5, .3),  (.55, .25) 

3.  Approximating  function  constants: 

A=  .03476  B=-. 30771  C=.30901  D=-. 05277 

E=  .05773  F=-. 05617  G=. 36402  H=-.2418?  I=. 05352 

Figure  16  shows  a  plot  of  the  one-dimensional  filter's 

magnitude  versus  frequency  characteristic.  The  following  is 

a  summary  of  the  design  parameters. 

1.  Number  of  transition  bands:  1 

2.  Transition  band  edge  frequiencies :  .6pi,  ,63pi 

3.  Magnitude  for  each  band:  0,  1 

4.  Ratio  of  the  band  errors:  1,  1 

5.  Deviation  in  each  band:  .08,  .08 

A  one-dimensional  filter  order  of  57  was  required  to  meet  the 
design  parameter  specifications.  Figure  17  shows  a  plot  of  the 
resulting  two-dimensional  filter's  magnitude  versus  frequency 
characteristic . 

Filter  Design  4 

The  fourth  filter  design  utilized  right-angle  contours. 
Figure  18  shows  a  plot  of  the  two-dimensional  contours.  The 
follov:ing  is  a  summary  of  the  data  pertaining  to  the  contours. 
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1.  Transformation:  second  order 

(  2.  Set  of  points  defining  the  desired  contour  (all 

coordinates  times  pi):  (.3, .4),  (.3,. 6),  (.3,. 8), 

(-3, .9),  (.3,1),  (.4, .4),  (.6, .4),  (.6, .4),  (.9, .4), 

(1, .4) 

3.  Approximating  function  constants: 

A=. 35752  B=-. 34052  C=-. 00607  D=. 56701  E=-. 02343 
F=. 20908  G=-.  13863  H=-. 03398  1=-. 05095 

Figure  19  shows  a  plot  nf  the  one -dimensional  filter’s 

magnitude  versus  freauency  characteristic.  The  following  is 

a  summary  of  the  design  parameters. 

1.  Humber  of  transition  bands:  1 

2.  Transition  band  edge  frea_uencies :  .28pi,  ,3pi 

3.  Magnitude  for  each  band:  1,  0 

4.  Ratio  of  the  band  errors:  2,  1 

5.  Deviation  in  each  band:  ,1,  .2 

A  one-dimensional  filter  order  of  43  was  required  to  meet 
the  design  parameter  specifications.  Figure  20  shows  a  plot 
of  the  resulting  two-dimensional  filter’s  magnitude  versus 
frequency  characteristic. 

Filter  Design  £ 

The  fifth  filter  design  utilizes  circular  contours. 

Figure  21  shows  a  plot  of  the  two-dimensional  contours.  The 
following  is  a  summary  of  the  data  pertaining  to  the  contours , 

1.  Transformation:  first  order 

2.  Equation  defining  the  desired  contour: 
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Design  4:  Two-Dimensional  Frequency  Response 


3.  Approximating  function  constants: 

A=.  34220  B=.  5  C=.5  D=- ..34220 

Figure  22  shows  a  plot  of  the  one-dimensional  filter's 
magnitude  versus  frequency  characteristic.  She  following  is 
a  summary  of  the  design  parameters. 

1 .  Number  of  transition  bands :  2 

2.  Transition  band  edge  frequencies:  .15pi,»2pi;  .4pi, 

3.  Magnitude  for  each  band:  0,  1,0 

4.  Ratio  of  the  band  errors:  1,  2,  1 

5.  Deviation  in  each  band:  .14,  .07,  .14 

A  one-dimensional  filter  order  of  31  was  required  to  meet 
the  design  parameter  specifications.  Figure  23  shows  a  plot 

*4*  • 

of  the  resulting  two-dimensional  filter's  magnitude  versus 
frequency  characteristic. 

Summary 

In  this  chapter  several  filter  designs  obtained  by 
using  the  two-dimensional  digital  filter  design  program 
developed  in  this  investigation  have  been  presented.  The 
results  demonstrate  the  flexibility  of  the  transformation  of 
variable  technique  for  filter  design.  The  filter  designs 
presented  show  that  this  method  can  design  two-dimensional 
filters  v/ith  complex  shapes. 


i'ig  23.  Filter  Design  5:  ’lVo-Dimensional  Frequency  Response 


VII  Conclusions  and  Recommendations 


Conclusions 

The  transformation  of  variables  technique  is  a  fast  and 
flexible  method  for  designing  a  class  of  two-dimensional 
digital  filters.  The  two-dimensional  digital  filter  design 
program  developed  in  this  investigation  extends  the  v;>rlc  of 
McClellan  and  others  by  providing  the  user  with  a  systematic 
method  of  designing  two-dimensional,  linear  phase,  digital 
filters  with  a  wide  variety  of  shapes.  The  program  is 
flexible.  It  can  design  two-dimensional  filters  with  complex 
shapes.  The  program  is  fast.  The  design  time  for  a  typical 
113X113  samples  points  two- dimensional  filter  is  approximately 
twelve  seconds.  The  design  times  of  this  program  are 
extremely  favorable  when  compared  with  other  available 
methods. 

Although  the  filter  design  program  is  very  flexible,  cer¬ 
tain  limitations  should  be  kept  in  mind.  First,  the  design 
program  maps  a  specific  one-dimensional  frequency  to  an 
approximation  of  a  desired  contour.  This  approximation  may 
be  good  or  bad  depending  on  how  close  the  shape  of  the 
approximation  is  tc  the  shape  of  the  desired  contour. 

Second,  the  magnitude  characteristic  of  the  frequency 
response  of  any  two-dimensional  digital  filter  designed  by 
the  .design  program  will  have  quadrantal  symmetry.  Third,  if 
the  first  order  McClellan  Transformation  is  used  in  the  filter 
design  process,  the  shapes  of  the  desired  two-dimensional 
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contours  must  be  monotonic,  Fourth,  if  shifting  and  scaling 
is  required,  the  results  may  not  be  acceptable. 

Recommendations  for  Future  Work 

There  are  several  things  that  can  be  done  to  improve  the 
performance  of  the  design  program  developed  in  this  investi¬ 
gation. 

1 .  The  order  of  the  one-dimensional  prototype  filter 
that  is  to  be  designed  is  an  input  to  program  PROTYPE. 
Execution  time  could  be  decreased,  especially  for  an  in¬ 
experienced  user,  if  the  program  calculated  an  estimate 
of  the  required  filter  order  for  the  user.  Algorithms 
and  formulas  that  can  estimate  the  required  filter 
order  are  available  in  the  literature.  References  9 
through  11  describe  a  number  of  these  methods. 

2.  Program  PROTYPE  produces  a  one-dimensional  proto¬ 
type  digital  filter  with  equal  ripple  filter  bands. 

Since  the  main  output  produced  by  program  PROTYPE  is 
the  impulse  response  of  the  one-dimensional  filter, 
other  one-dimensional  filter  design  programs  could  be 
incorporated  into  PROTYPE,  This  would  give  the  program 
tremendous  flexibility  since  filters  with  other  charac¬ 
teristics  (monotone  passband  response,  constrained 
ripple,  maximally  flat  bands,  etc.)  could  also  be 
designed.  References  12  through  14  describe  programs 
that  could  be  added  to  V 10TYPE, 

3.  It  would  be  desirable  to  be  able  to  a  ;prox.imate  the 


the  shape  of  two  or  more  contours  in  the  the  w2,w.j 
plane  simultaneously  according  to  some  error  criteria. 
This  would  make  the  design  of  multi-band  filters  much 
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Appendix  A 


User ' g  Guide  for  the  Two-Dimensional 


Digital  Filter  Design  Prof 


This  appendix  is  the  user's  guide  for  the  filter  design 
program  developed  in  this  investigation.  It  is  written  so 
that  it  can  be  used  as  a  stand-alone  manual  for  the  two- 
dimensional  digital  filter  design  program.  The  guide  is 
organised  as  follows.  First  the  general  structure  of  the 
two-dimensional  digital  filter  design  package  is  described. 
Then  each  of  the  programs  and  subprograms  that  make  up  the 
package  are  discussed  from  the  user's  point  of  view. 

Finally  a  sample  two-dimensional  filter  design  is  presented. 
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Filter  Design  Package  Structure  - 

She  two- dimensional  digital  filter  design  package  con¬ 
sists  of  the  two-dimensional  digital  filter  design  program 
itself,  the  subroutine  YOURS UB,  the  program  PROFILE,  and 
the  program  PLT3D.  All  programs  except  the  first  one  are 
optional.  However,  use  of  the  optional  programs  makes  use 
of  the  two-dimensional  digital  filter  design  program  much 
easier. 

All  programs  are  written  in  Fortran  IV  extended  except 
program  PROFILE  which  is  written  in  Cyber  Control  Language. 
In  the  discussion  that  follows,  each  program  will  be 
described  from  the  user's  point  of  view.  It  will  be  assumed 
that  the  design  package  is  run  using  the  CDC  6600's  time 
sharing  system,  Intercom. 


The  Two -Dimensional  Digital  Filter  Design  Program 

The  two-dimensional  digital  filter  design  program  is 
written  in  Fortran  IV  extended  and  uses  overlays  to  reduce 
memory  requirements.  The  program  consists  of  seven  separate 
programs,  each  resident  in  a  separate  overlay.  Labeled 
common  storage  areas  are  used  to  transmit  variables  between 
overlays.  The  program  was  designed  to  be  run  interactively. 

Purpose .  The  two-dimensional  digital  filter  design 
program  designs  linear  phase,  finite  impulse  response, 
linear  shift- invariant,  two-dimensional  digital  filters. 

This  is  done  by  transforming  a  one-dimensional  di.ital  filter 
with  a  frequency  response  of  the  form  (‘Ref  1:35-37) 
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into  a  two-dimensional  digital  filter  with  a  frequency 
response  of  the  form  (Ref  1:33-54) 

-jkl  (w0+w. )  r  kl  kl 

H(w9,wJ  =  e  EE  H22(l»m)ct  ',1) 

^  1  *- 1=0  m=0 

•  cos^nOj’  ,  (105) 

"by  using  the  generalized  McClellan  Transformation  (ref  2) 

a  b 

m(w9,w1)  =  E  E  c(i,g)cos(iw1 )cos(gw?)  (3) 

i=0  g=0 

The  filter  designer  can  elect  to  use  either  the  first  order 
McClellan  Transformation  (a=b=1 )  or  the  second  order 
McClellan  Transformation  (a=b=2).  The  Trans format ion  maps 
each  frequency  of  the  one-dimensional  filter  to  a  contour  in 
the  two -dimens. onal  frequency  plane.  The  magnitude  at  each 
frequency  of  bhe  one-dimensional  frequency  response  becomes 
the  magnitude  along  the  corresponding  contour  of  the  two- 
dimensional  frequency  response  ^Ref  1:10-11). 

The  program  can  design  lowpass,  highpass,  bandpass, 
bandstop,  all-pass,  and  multi band  filters.  However,  only 
one  desired  contour  in  the  two-dimensional  frequency  plane 
can  be  closely  approximated  by  the  design  program.  Therefore 
the  program  lends  itself  to  the  design  of  lowpass,  higkpa-ss, 
and  all-pass  filters.  All  filters  designed  by  this  program 
have  quadrejatal  symmetry.  This  means  that  the  magnitude 
versus  frequency  characteristic  of  the  two-dimensional  filters 
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will  be  four  quadrant  symmetric. 
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Interactive  Nature .  This  program  is  intended  for  inter¬ 
active  use.  This  is  necessary  for  two  reasons.  First,  there 
is  no  guaranty  that  the  McClellan  Transformation  will  produce 
a  well-defined  mapping  from  the  one-dimensional  frequency  axis 
to  the  two -dimensional  frequency  plane  (Ref  '’si 7—20 ) .  If  the 
mapping  is  ill-defined,  filter  designer  intervention  is 
necessary.  Second,  the  one-dimensional  filter  order 
necessary  to  design  a  one-dimensional  filter  with  desired 
characteristics  (band  error,  etc.)  is  not  known  in  advance. 

It  may  be  necessary  to  re-design  the  one-dimensional  filter 
several  times  in  order  to  produce  the  desired  filter  character¬ 
istics. 

Filter  Size.  The  program  as  presently  dimensioned  can 
design  a  two-dimensional  digital  filter  with  up  to  113  X  113 
impulse  response  samples.  The  size  of  the  two-dimensional 
digital  filter  that  can  be  designed  can  be  changed  by  re¬ 
dimensioning  arrays  and  variables  as  indicated  in  the  comments 
of  the  program  listing.  Local  operating  procedures  limit 
interactive  programs  to  65,OOOg  words  of  central  memory.  The 
present  array  dimensions  cannot  be  increased  v/ithout 
exceeding  this  limit. 

Inputs  and  Outputs.  The  required  inputs  to  the  design 
program  are  a  set  of  points  that  define  the  contour  in  the 
tv, 'o -dimensional  frequency  plane  that  is  to  be  approximated, 
and  the  parameters  necessary  to  aesi  the  one-dimensional 
filter  that  will  be  transformed  into  the  two-dimensional 
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filter.  The  design  program  outputs  the  contour  approximating 
function,  the  impulse  response  samples  of  the  one-dimensional 
filter,  a  graph  of  the  magnitude  of  the  two-dimensional 
frequency  response  in  the  first  quadrant  (the  frequency 
response  has  quadrantal  symmetry),  and  the  unique  two- 
dimensional  impulse  response  samples.  As  options,  the  pro¬ 
gram  can  output  sets  of  points  that  define  any  two- 
dimensional  contours,  a  Calcomp  plot  of  the  one-dimensional 
filter’s  magnitude  versus  frequency  characteristic,  a  Calcomp 
plot  of  the  two-dimensional  contours,  and  a  Calcomp  plot  of 
the  two-dimensional  filter’s  magnitude  versus  frequency 
characteristic . 

Programs .  The  two-dimensional  digital  filter  design 

program  is  composed  of  seven  separate  programs.  They  are 

called  CONTROL,  CIBPIT,  PROTYPE,  PORCHES,  EXPAND,  BACKCIIB, 

and  GRAPH,  The  design  program  expects  all  frequencies  to  be 

/ 

entered  as  radians  between  0.0  and  1.0.  The  program  auto¬ 
matically  multiplies  each  frequency  by  pi.  In  response  to 
no/yes  questions,  ohe  program  expects  the  user  to  enter  0  for 
no  and  1  for  ves.  The  important  interactive  questions  and 
imperative  statements  will  be  described  program  by  program. 
,They  will  be  enclosed  within  quotation  marls. 

Program  CONTROL, 

1 .  "Do  you  wish  to  continue?"  This  question  is  asked 
immediately  after  the  one-dimensional  prototype  filter  has 
been  designed.  It  allows  the  user  to  stop  execution  of  the 
design  program  at  this  point  and  thus  end  uo  up  with  only  a 


one-dimensional  filter  design 


2.  "Do  you  v/ish  to  calculate  the  2-D  impulse  response?" 
The  user  can  elect  not  to  generate  the  two-dimensional  im¬ 
pulse  response  samples.  Doing  this  does  not  prevent  the  user 
from  receiving  all  other  output  that  can  be  generated  by  the 
two-dimensional  digital  filter  design  program. 

Program  CURFIT . 

1 .  "Do  you  wish  to  approximate  your  2-D  contour  with  a 

four  or  nine  term  approximating  function?  Enter  4  or  9"  If 

the  user  enters  4,  he  is  choosing  to  use  the  first  order 

McClellan  Transformation  in  the  design  process.  In  this  ca.se, 

the  contour  in  the  two-dimensional  frequency  plane  that  the 

^-signer  wishes  the  program  to  approximate  must  be  monotomic 

(.Ref  1  ill— 13)*  Also  the  resulting  two-dimensional  filter  will 
2 

have  (RTFILT  )  impulse  response  samples  ^Ref  3 ) .  HFILT  is  the 
order  of  the  one-dimensional  filter  that  will  be  transformed 
into  the  two-dimensional  filter.  If  the  user  enters  9,  he  is 
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choosing  to  use  the  second  order  McClellan  Transformation  in 
the  design  process.  In  this  case,  the  contour  in  the  two- 
dimensional  frequency  plane  that  the  designer  wishes  the  pro¬ 
gram  to  approximate  does  not  have  to  be  monotomic.  Also  the 

/"N 

resulting  two-dimensional  filter  will  have  (2. iiFILT  -  1 

p 

impulse  response  samples.  This  is  approximately  4»1‘FIL_  . 

2.  "Do  you  have  a  predetermined  set  of  approximating 
function  constants?"  If  the  user  wishes  to  design  a  two- 
dimensional  filter  with  the  same  shape  that  he  used  in  a  pre¬ 
vious  design,  the  constants  can  be  entered  directly  inst~: d 
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of  being  re-calculated  by  the  program. 

3.  "Do  you  have  a  predetermined  set  of  constraint 
equations?"  If  the  user  does  not  wish  to  use  one  of  the  three 
sets  of  constraint  equations  coded  into  the  program,  then  he 
must  enter  his  own  set  of  constraint  equations.  The  three 
sets  of  constraints  coded  into  the  program  are  the  following: 

a.  w  =  0  maps  to  (w2,w.|)  =  (0,0 ) 

b.  w  =  pi  maps  to  (w2,w^)  =■  (pi, pi) 

c.  Both  a  and  b  above 

4.  "Do  you  wish  to  enter  a  set  of  points  that  defines 
your  contour?"  If  the  user  has  not  included  the  subroutine 
YOURSUB  in  the  code  of  the  two-dimensional  digital  filter 
design  program  or  compiled  and  libraried  it  using  procedure 
COMPILE  of  program  PROFILE,  then  he  must  enter  a  set  of  points 
that  defines  the  desired  contour  in  the  two-dimensional 
frequency  plane. 

5.  "How  many  points  do  you  v/ish  to  enter?"  If  the  user 
v/ishes  to  define  the  contour  by  a  set  of  points,  he  can  enter 
up  to  500  points. 

6.  "If  you  have  a  case  number  enter  it;  otherwise  enter 
0."  Here  the  user  is  going  to  define  the  desired  contour  in 
the  two-dimensional  frequency  plane  by  using  the  subroutine 
YOURSUB ,  If  the  user  coded  provisions  for  more  than  one  con¬ 
tour  in  subroutine  YOURSUB,  he  must  enter  the  value  of  the 
variable  HCASE  that  selects  the  contour  that  the  user  wishes 
to  use  in  the  current  tv/o- dimensional  filter  design. 

(  7.  "Your  contour  v/ith  your  frequency  produces  an  ill- 
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defined  mapping  from  the  w-axis  to  the  plane.  Enter 

one  of  the  following  option  numbers. 

1 )  choose  different  program  generated  constraints 

2)  enter  your  own  constraint  equations 

3 )  enter  a  set  of  approximating  function  constants 

4;  start  over 

3)  try  scaling 

6;  terminate  this  program'1 

If  the  mapping  is  ill-defined,  the  filter  design  process  has 
failed.  If  the  user  wants  to  continue  the  original  filter 
design,  he  must  either  choose  one  of  the  other  program  coded 
constraints,  enter  his  own  constraints,  or  try  scaling. 

Scaling  produces  a  well-defined  mapping  in  most  cases  but  the 
results  of  the  scaling  may  not  be  satisfactory  from  a  filter 
design  point  of  view.  Shifting  and  scaling  changes  the  loca¬ 
tion  of  the  original  specified  contour  in  the  two-dimensional 
frequency  plane.  The  new  location  may  or  may  not  be  close  to 
the  original  location. 

8.  "Your  original  frequency  has  been  scaled  to  "value 
of  the  scaled  frequency".  Enter  one  of  the  following  option 
numbers. 

1 )  start  over 

2)  terminate  this  program 

3)  continue" 

If  scaling  was  used,  the  filter  designer  can  proceed  or  stop 
the  design  process  depending  on  the  result  of  the  scaling. 

Program  Pl-lOTYPE.  As  an  aid  to  understanding  the  inter¬ 
active  questions  in  program  PHCIYPE  see  figure  24. 

1.  "Enter  an  odd  filter  order  of  "A"  or  less."  If  the 
first  order  PcClellan  Transformation  was  chosen  earlier,  A 
e quo Is  113.  The  filter  order  must  be  greater  than  or  equal  to 


Fig  24.  Typical  Three  Band  Filter 


three.  If  the  second  order  McClellan  Transformation  v/as 
chosen  earlier,  A  equails  57.  The  filter  order  must  still  be 
greater  than  or  equal  to  three. 

2.  "How  many  transition  bands  does  the  filter  have?" 

The  program  can  design  a  one-dimensional  filter  v/ith  up  to 
nine  transition  bands  UO  bands).  Figure  24  has  tv/o 
transition  bands  (.3  bands). 

3.  "Enter  the  band  edge  frequencies  for  each  transition 
band.”  Here  the  user  enters  each  \r  and  v/  ^see  figure  24) 

S  P 

going  from  left  to  right.  Each  band  must  be  separated  by  a 
finite  width  transition  band.  There  will  be  one  w  and  one 

b 

w  for  each  transition  band. 

P 

4.  "Enter  an  ideal  absolute  magnitude  for  each  band  of 
the  prototype  filter  ^usually  1  or  0)."  Even  though  program 
I-'AOTTFE  produces  a  filter  that  is  equal  ripple  in  each  band, 


the  ideal,  magnitude  for  a  passband  is  1.0  and  the  ideal 
magnitude  for  a  stop  band  is  0.0. 

5.  "Enter  the  ratio  of  the  band  errors  (.one  number  for 
each  band)."  The  order  of  the  one-dimensional  filter  controls 
the  magnitude  of  the  ripple  in  each  band.  The  user  must 
enter  a  ratio  of  the  band  errors  and  hope  that  the  resulting 
band  deviations  medt  his  error  criteria.  If  they  do  not,  the 
one-dimensional  filter  can  be  redesigned  using  a  different 
value  for  the  filter  order.  The  larger  the  number  entered, 
the  smaller  the  error  in  the  band.  For  example,  if  the  error 
ratio  for  a  tv/o-band  filter  is  10:1:  then  the  error  in  band  1 
will  be  10  times  smaller  than  the  error  in  band  2.  The 
deviations  output  by  the  program  are  the  D's  in  figure  24. 

6.  "Do  you  wish  to  redesign  the  prototype  filter?"  If 
the  deviations  of  the  designed  one-dimensional  filter  do  not 
meet  the  user's  criteria  for  band  errors,  the  filter  can  be 
redesigned. 

Program  GRAPH. 

1 .  "Do  you  want  to  create  a  plot  file  for  the  Calcomp 
plotter?"  The  user  is  given  the  option  of  generating  the 
Calcomp  plot  of  the  one-dimensional  filter ;s  magnitude  versus 
frequency  characteristic  and  the  Calcomp  plot  of  the  two- 
dimensional  contours. 

2.  "Do  you  want  to  create  a  DISSPIn  3-^  plot  of  the 


frequency  ros.onse?"  The  user  is  given  the  option  of  creating 
a  file  called  tape2.  The  file  taoe2  is  used  by  program 
I-LT3D  to  generate  a  Calcomp  plot  of  the  two-dimensional 


filter's  magnitude  versus  frequency  characteristic. 


Subroutine  YOURSUB 

Subroutine  YOURSUB  is  used  to  define  the  contour  in  the 

square  region  [0,pi]X[0  , pi]  of  the  two-dimensional  frequency 

plane  that  is  to  be  approximated  by  the  two-dimensional 

digital  filter  design  program.  Subroutine  YOURSUB  generates 

the  points  that  define  the  contour.  The  horizontal  axis 

coordinate  of  each  point  is  stored  in  the  array  V/2  and  the 

vertical  axis  coordinate  of  each  point  is  stored  in  the 

array  V/1 .  A  maximum  of  500  points  can  be  generated  by  the 

subroutine.  Subroutine  YOURSUB  must  have  the  following  form: 

SUBROUTINE  YOURS UB(NCASE,  NPOINTS,  V2,  V/1  ) 

DIMENSION  V/2  (500),  V/1  ( 500 ) 

*  *  » 

•  ♦  • 

•  •  • 

User's  code  that  generates  the  points  that  define 
one  or  more  contours  in  the  two-dimensional 
frequency  plane. 

i  •  » 

•  •  • 

RETURN 

END 

Arguments.  NO ASS  allows  the  user  the  option  of  defining 
more  than  one  contour  in  the  subroutine.  The  two-dimensional 
digital  filter  design  program  can  only  approximate  one  con¬ 
tour  per  design.  NCAS3  allows  the  user  to  designate  which  of 
several  contours  included  in  the  subroutine  will  be  used  by 
the  two-dimensional  digital  filter  design  program  during  the 
design  process.  NCA33  can  be  used  as  the  variable  in  a  series 
of  if-then  statements  or  in  a  ce.se  statement. 
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NPOINTS  is  the  number  of  points  that  the  user's  code 
generates.  NPOINTS  must  be  500  or  less.  In  general  the 
more  points  generated,  the  better  the  approximation  to  the 


contour. 


S3 


'<12.  is  the  array  in  which  the  hoorisonatal-axis 

coordinates  of  each  point  are  stored.  V/1  is  the  array  in 

which  the  vertical-axis  coordinates  of  each  point  are  stored. 

Both  of  these  arrays  are  500  elements  long. 

Example .  The  following  is  a  sample  subroutine  YOURSUB. 

SUBROUTINE  YOURSUB  (NCASE,  NPOIHTS ,  V/2,  VI) 

DIMENSION  V/2  (500),  V/1  (500) 

IP  (NCASE.  NE.  1)  GO  TO  20 
NPOINTS  =  41 
A  =  .5 

XidIN  =  ,5*A**2 
BO  10  1=1,41 

V/2 II)  =  ((1.0  -  XMIN ) * ( I  -  1.0)/40  +  Xi-IIN ) 

V/1(I)  =  XHIK/V/2  (I) 

10  CONTINUE 

RETURN 

20  NPOINTS  =  ICO 

r  _  y 

*  BO  100  LZ=1 ,100 
V/2  (IS)  =  (LZ  -  l)/99  *  R 
V/1  (LZ )  =  SORT  (R**2  -  V72(LZ)**2) 

100  CONTINUE 

RETURN 

ENB 

If,  during  the  execution  of  the  two-dimensional  digital 

filter  design  program,  the  user  enters  NC..SE  =  1 ;  the  program 

2 

will  approximate  a  hyperbola  with  equation  v.^  =  a  /(Sv^)* 
Porty-one  points  will  be  used  to  define  this  hyperbola.  If, 
on  the  other  hand,  the  user  enters  NCASE  =  2;  the  program 
will  approximate  a  quarter  circle  centered  at  the  origin  with 
radius  r  and  equation  w^  =  tr^  -  )':. 


One-hundred  points  will  he  used  to  define  this  quarter  circle. 

Placement .  Subroutine  YOUASUB  can  be  inserted  into  the 
two-dimensional  digital  filter  design  program  deck  in  the  back 
of  the  program  called  CURFIT.  It  can  also  be  written  in  "he 
create  mode  of  editor,  saved  as  a  local  file  called  X,  and 
then  compiled  and  libraried  by  the  program  PROFILE. 


Program  PROFILE 

Program  PROFILE  is  used  to  process  files  needed  by  or 
created  by  the  two-dimensional  digital  filter  design  program 
and  program  PLT3D.  PROFILE  is  written  in  Cyber  Control 
Language.  The  program  consists  of  five  separate  procedures. 
Although  this  program  is  optional,  equivalent  commands  must 
be  given  in  order  to  process  the  files  needed  by  or  created 
by  the  two-dimensional  digital  filter  design  program  and 
program  PLT3D  if  program  PROFILE  is  not  used.  To  use  PROFILE 
the  user  must  do  the  following: 

1 .  Store  program  PROFILE  in  a  permanent  file  called 
Profile . 

2.  Store  the  binary  version  of  the  two-dimensional 
digital  filter  design  program  in  cycle  490  of  a  permanent 
file  called  Hcltrn. 

3.  Store  program  PLT3D  ^only  if  used;  in  cycle  490  of 
a  permanent  file  called  D 3 PLOT « 

A  listing  of  program  PROFILE  and  a  discussion  of  the  five 
procedures  (OCijrlLE,  DSSIGK,  ROUTE,  PLFIL2,  J>D1  juC'T )  will  be 
presented  next. 
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rRQyiL'-ii  Proyran  listing. 


P  c  ’’ L  *  R  f *  •  5 1."  'P  l.  »  :  p  *  l  I  IT. 

.  DATA  * Ilf-: 

LIT  PA**  V  '  r‘’  i'L  I T  *  fif  1 
ADD  •  ♦•  i50*?C  * 

F  1  ’i  1  I  h  . 

ENT1RUN. 

♦  AGP 

•  P P fj >_ •  BE i  In?'*  . 

RETURN*  NAME. 

ATTACH*  CIC*  C L PLC.'TSPP,  *  i  D=L  I FF A 
LIF-'PPY*!'1VLII  *•;  K. 

ATTACH*  Mi"' *  H'lLTr?i*  C Y=J?0. 

MX. 

RETURN *  MX * MC L  *  C I C . 

LIBRARY. 

♦EOF 


;'<!•*  I--  E,-. . 

P  ■* 1  'Uv.  .  T  •  !  x  *  ♦RF . 

LO-’Y*  T A ~ £  ,  VEr  ;  I-. 

C  ~  •  ALijA  •  T  •.  "r  T I  *  i  -  tp  :  J  >•  LII  f . 

F  FT  URN  *  T  P'P  EE  «  T EMP  IT1 . 

ENi'IF*  .Jur-'P. 

ATI  Ac  h  *  PLOT  3D  *  b-  PLOT .  V  y=4  n 
BA7  CH*  PLOT  I NRIJT .  HERE  , 
RETURN*  PLL! )  ED. 

FILES. 

♦EOR 


V *  III— A i r>. 


.  PROC  *  ROUTE  *  TEC'N=T  F ,  IJ I EF-C I C . 

REMIND* RESULT  *PLOT. 

REQUEST  *  RPX*  ♦•;• . 

C OP Y2  BF *  RE'S UL  T  *  RRX . 

ROUTE  j  PR!'  ATI  Ii=TERM  *  F I  D=U?  EP  *  DC=PR  *  .1  T=C  SB . 
RETURN*  RESULT  ?  RPX. 

REi-'UE-iT *  CEL  *  ♦IJ1 . 

copy* Plot >cec. 

ROUTE  *  CEC  j  DC  =RT  *  T I  U=7  ERM  *  F I  D=USEEj.ST=CS  B . 
RETURN*  PLOT  *  C  EC. 

♦EOF. 


.  PROC*  3DPL0T*  TERM=BB*  U:SER=CIC. 

ATTACH  *  PLF I LE  .*  YOURF I LE . 

ATTACH  *  B I  ST-  PL  A  *  I  D=L  I BRAPY  *  £N=RSD , 

LIBRARY jDISCPLA. 

ONLINE. 

REMIND* PLOT. 

REQUEST*  DAY*  ♦•;•. 

COPY *  PLOT* DA V. 

RDUTE *  DAV *  DC-PT *  T I Ii=TERM *  F I B=US EF: *  ST=CSB . 
RETURN*  DISSPLA*  PLOT *  PLF I LE . 

LIBRARY. 

♦EOR 

♦EOF 
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Procedure  COJ .'PILE.  This  procedure  compiles  and 
libraries  the  subroutine  YOURSUB.  The  procedure  assumes  that 
subroutine  YOURSUB  has  been  saved  without  sequence  numbers  in 
a  local  file  called  X. 

Px*ocedure  DESIGN.  This  procedure  first  attaches  the 
Calcomp  plotter  routines  (file  CCPLOT56X,).  It  then  declares 
the  plotter  file  and  the  file  containing  subroutine  YOURSUB 
0-YLIB)  to  be  libraries.  Finally  it  begins  execution  of  the 
two-dimensional  digital  filter  design  program  (binary  assumed 
to  be  stored  in  cycle  490  of  file  Kcltrn). 

Procedure  ROUTE.  This  procedure  sends  the  hard  copy  out¬ 
put  file  (RESULT)  to  the  printer  and  the  Calcomp  plotter  file 
(PLOT)  to  the  plotter.  The  hardcopy  output  file  will  have 
the  banner  CIC.  The  banner  can  be  changed  to  any  banner  the 
user  desires  by  changing  US3R=CIC  in  the  first  statemei  ,  of 
the  procedure  to  US3R=!* banner  the  user  desires".  The  plot 
generated  by  the  Calcomp  plotter  will  always  have  as  the 
banner,  the  ID  that  the  computer  system  assigns  the  user  just 
after  he  logs  on  to  the  Intercom  system.  The  user  has  no 
control  over  this  banner. 

Procedure  PLFILS,  This  procedure  first  saves  the  infor¬ 


mation  on  the  file  called  TAP32  in  a  permanent  file  called 
uATA^DPROT.  It  then  batches  program  ILTgD  v,  assumed  to  be 
stored  in  cycle  490  of  a  file  called  DpPLuT)  to  the  input 
queue.  Program  PUT  3D  '.,111  purge  file  DATA3DP.LCT  after  it 


finishes  executing. 


permanent  file  called  YOURFILE  (created  by  program  PLT3D). 

It  then  attaches  the  file  DISSPLA  containing  the  three- 
dimensional  figure  plotting  routines  and  starts  execution  of 
these  routines.  Finally  it  sends  the  file  generated  by  the 
three-dimensional  figure  plotting  routines  (PLOT)  to  the 
Calcomp  plotter.  Again  the  banner  on  the  plot  will  be  the  IP 
assigned  the  user  after  the  user  has  logged  on  the  Intercom 
system.  The  file  YOUR FILE  will  exist  for  eight  days. 

During  this  time  procedure  3DPL0T  can  be  re-executed  to  get 
multiple  copies  of  the  three-dimensional  plot. 

How  to  Use  PROFILE.  Typically  the  following  sequence  of 
actions  and  commands  would  occur  during  the  design  of  a  two- 
dimensional  digital  filter. 

1 .  The  user  writes  the  subroutine  Y0UR3UB  in  the  create 


mode  of  editor.  Subroutine  YOURSUB  is  saved  as  local 
file  X  without  sequence  numbers  (i.e.  SAVE,  X,  EOS). 

2.  The  command  "B,B"  is  given. 

3.  The  command  "ATTACH,  PROFILE"  is  given. 

4.  The  command  "BEGIN,  CCifr’ILS,  PROFILE1.’  is  given.  If 
the  subroutine  YOTJRSUS  compiles  with  errors,  the  user 
must  correct  the  mistakes  by  using  the  edit  mode  of 
editor.  Then  the  corrected  subroutine  is  saved  as  local 
file  X  ovor-writting  the  old  file  X  (i.e.  SAVE,  X,  OVER, 
EOS) .  Steps  2  and  4  are  then  repeated. 


The  command  "EEC- III,  DESIGN,  PROFILE"  is  given. 


7. 


The  command  " 3E1 IE , 
The  command  "BEGIN, 


ROUTE, 

*  j  t*  7  -1 
JL  Jj  | 


PROFILE"  is  given. 

* ROFILE"  is  given.  The 


terminal  v/ill  respond  with  a  list  of  files.  The  user 
should  write  down  or  remember  the  file  listed  under 
remote  input  files. 

8.  The  user  must  now  wait  until  the  program  PLT3D 
finishes  execution.  V/hen  the  user  gives  the  command 
"FILES”  and  the  file  that  was  listed  under  remote  input 
files  is  now  listed  under  remote  output  files,  then 
PLT3D  has  finished  executing. 

9.  The  command  "BATCH,  "remote  output  file  name",  LOCAL" 
is  given. 

10.  The  command  "EDITOR"  is  given. 

11.  The  command  "EDIT,  "remote  output  file  name",  S"  is 
given. 

12.  The  command  "L,  A"  is  given.  The  user  must  check  the 
program  listing  for  errors.  The  most  common  error  is  no 
file  space  available  for  the  creation  of  the  file  iOURFILE. 
If  errors  have  occurred,  the  user  must  go  back  to  step  7 
and  proceed  from  there. 

13.  The  command  "BEGIN,  3 HELOT,  PROFILE"  is  given.  The 
terminal  responds  with  DISEPLA  POSTPROCESSOR  FOR  OlisHJE 
CALCOIIP  PLOTTER.  El: TER  DIRECTIVES.  The  user  enters  the 
command  "EAAV/-1  -ENDO" .  V/hen  the  terminal  responds  with 
El'D  Gi/LIHE,  the  sequence  is  complete. 

It  should  be  noted  that  if  the  subroutine  Y0URSU3  is  inserted 


into  the  two-dimensional  digital  filter 


design  program  deck 


or  if  a  set  of  points  is  going  to  be  input  into  the  two- 
dimensional  digital  filter  design  program  during  execution, 


then  the  use?  skips  steps  1,  2,  and  4. 


Program  PIT 3D 

Program  PL? 3D  generates  the  magnitude  of  the  two- 
dimensional  frequency  response  at  a  grid  of  points  on  the 
two-dimensional  frequency  plane.  The  coordinates  of  each 
point  on  the  grid  and  the  magnitude  at  each  point  are  stored 
on  a  file  called  YGUIiFILE.  1'he  program  uses  the  information 
stored  on  file  DATA3DPL0T  (originally  TAPE2 ) .  If  the  program 
runs  successfully,  the  file  DATA3DPL0T  is  purged  and  the  file 
YOURFI1E  is  created. 

To  use  this  program,  the  user  must  replace  the  current 
job  card  with  his  own  job  card.  A  listing  of  the  program  is 
given  below. 

PLT3P  Program  Listing. 


ci4»cm i?  *  .r?:w r :ll ? 

FTN(R=  . ) 

ATTACH,  j  AT  5  -r’L'V'. 

ATTACH, BJSSFU  ,  .1=1.  r:»  l'\,  Vm=.i  n. 

lI9F'ARV,nr$c,::L 

RE0U£3T,PlF:I.-  ,  OF. 

LGO. 

CATALOG^LFiLI  ,  Y3IIPOT)  -  % 

PURGE,  T^ZZ, 

Pf?C3FAM  o L  r  3 C (  t * j 1 1  y ,  o u T o  l j T  , T  c r  2 , p l F T l =  r- ) 
OlMr  K'F.13)  WORKC  <  "  '  ) ,  Hi*)C  )  ,CU  <\JFH  (9) 

,  COMMON  /C:r/  HiHCuE4,  CMFVFiT,  <[’ 

LXT-'Rf.AL  T 
w"£ o  <r,io>  n 
tfi  ro-^naz) 

REA  0  (2,20)  rvj'H'FI1’ { '*?)  ,*1R  =  i,°) 

2C  F0:-  H  41 

REAT  (2, Ci.)  (HIDC'oc(MT)  ,^sifKn 
3?  FCF'AT  (?(7S!1,«. /)) 
call  CO^RS 
CALL  BGiJFL  C  3) 

CALL  TIT  in  (14  ,-  1 ,*,'.) 

CALL  V'j;  ,<!?., 4 0,  n.) 

C  AL  L  A  XL  t  ■  ,C,  1  )  !  ,  1 ,  2.  ,  2  »  v.  ,  i  «  J  ) 
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15' 


c^wt  r n (* t«  * t ' •  i f  1  * .  f*ii  iif  i  ii^ii  t’jftXyitwp) 

^ALL  '■jRF’INC'm  ‘'..I?',  •»,.!  ?£,  WORK) 

CaLL  :vpFL(l) 

CiU 

Sir?  v  '  j 
PU*.:*  ;0V  ;\  * 


comsoi  fcr:/  vfiT,  <d 

'■•IK  k:m>  '■■■)  ,  -  Ij-vrn  (t> 

ci=:.nii  *'  ><* 


<i2  =  y  1  °r 

l.M  r  V  ►  &r 


i 


-N 


MiD'!«r*wn 
r>o  :■  M=  2» ko 

*  -  '  •  H;,  r.c •<■:»(►  )M  (P'JivtfFIT  (1)  f  C'J<rfs:T(3)‘CD:>(H?) 

*  “or  vFii  {?  > ^cos(2‘W2)+  c!J:;>/Fir(2)f  cos(wi) 

*  0‘»  VFI  7  ('•  >  *r  }'i  ('ll)  ♦  C-XH?) 

+  Fiji  '/F17  C)  •'CO.-(Wi)  *  CO> 

+  C'FVFj  *1  (?)'  CT'(2-  -»1) 

+  njf.  vrjt  (;  )«•:,  r-'-'D^ros  (ws) 

*  r.m  wf:i  (f-)  **r.c-o<  (?•■  W2) )  *  *  (M-i)) 

r>A  n  n  ♦••in  — 


Design  Example 

The  following  example  illustrates  the  use  of  PROFILE  and 
the  two-dimensional  digital  filter  design  program.  The 
desired  contour  is  a  quarter  circle  centered  at  the  origin 
with  radius  .7pi  and  equation  w^  =  lr2  -  w22)^.  Rote  that 
user  entries  are  underlined. 
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■***nM3i&r*a£Si 


<**» 


•*>  >»;v  *•  • 


DO  'i'DU  WISH  TO  APPROXIMATE  YOUR  3-D  CONTOUR  *»•  I TH  A  FOUR  OP  NINE  TERf- 
APPROXIMATING  FUNCTION?  ENTER  4  OF:  •?. 


DO  YOU  HAVE  ft  PREDETERMINED  SET  OF  APPROX  I  MATING  FUNCTION  CONSTANTS'7 

0 

ENTER  THE  1-D  FREQUENCY  THAT  YOU  WISH  TO  MAP  TO  YOUR  3-D  CONTOUR 
tO.O  TO  1.0  0<  PI>>. 


DO  YOU  HAVE  A  PREDETERMINED  SET  OF  CONSTRAINT  EQUATIONS? 

0 

CHOOSE  ONE  OF  THE  FOLLOWING  CONSTRAINTS  BY  NUMBER. 

1>  l.l=  0  MAPS  TO  'W£»W1>«<0«0>  £>  W*PI  MAPS  TO  CW3>  Wl.>  =  CPI ,  PD 

3‘t  BOTH  1  AND  £  ABOVE 

1 


DO  YOU  WISH  TO  ENTER  A  SET  OF  PD I NTS  THAT  DEFINES  YOUR  CONTOUR7 

0 


IF  YOU  HAVE  A  CASE  NUMBER  ENTER  IT*  OTHERWISE  ENTER  0. 


YD  UP  CONTOUR  WITH  YOUR  FREQUENCY  PRODUCES'  AN  ILL-DEFINED  MAPPING 
FROM  THE  W-ftXIS  TO  THE  l.l£«i.il  PLANE.  ENTER  ONE  OF  THE  FOLLOWING 
OPTION  NUMBERS. 

1.'  CHOOSE  DIFFERENT  PROGRAM  GENERATED  CONSTRAINTS 

£?  ENTER  YOUR  OWN  CONSTRAINT  EQUATIONS 

3»  ENTER  A  SET  OF  APPROXIMATING  FUNCTION  CONSTANTS 

4'>  STA-T  OVER  TRY  ICAuING  6>  TERMINATE  THIS  PROGRAM 


YOUR  ORIGINAL  FPEOUENC  Y  HAS  BEEN  SCALED  TO  .330 33 OP I.  THE  SCALED 
FREQUENCY  WILL  BE  MAPPED  TO  YOUR  CONTOUR. 

ENTER  ONE  OF  THE  FOLLOWING  OPTION  NUMBER'S. 

1<  START  OVER  £ 1  TERMINATE  THIS  PROGRAM  3)  CONTINUE 


LINEAR  LEA  IT  SQUARE  I  Hr  PF  □/  I  MAT  I  O'-  WITH  It..11  TAPIN’ 


THE  APPROXIMATION  H-7*!  THE  F r:Pf-i :  P  W1  • 

r**:o:  •  1  •  ♦cc:  •  <>»£«  with 

P  =  .  4  E  £  =  .  ovH  0  ■:  = 


A  +  B  ♦*.  0  .  1  '.'l  *  +  *•-  0  _•  ’  1 1  ■  L  -1 

.  5  i'm;  j  -  jVLi'O 


r  Ql7  TC'A  I  NT  EOLATION; 


1 .  Cm  =  1  .  I'iijA  +  i .  ;'i f.  +  i  .  1 1 i'iQ 
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.  I 


{■ 


THE  1-D  FREQUENCY  THAT  MAP i  TO  THE  USEP5  £-D  CONTOUR  =  .  £303£llPI . 


61 


1 


ENTER  AN  ODD  FILTER  ORDER  OF  113  OP>LESS. 

•3 

HOW  MANY  TRANSITION  BANDS  DOES  THE  FILTER  HAVE'7' 


ENTER  THE  BAND  EDGE  FREQUENCIES  FDR  EACH  TRANSITION  BAND. 
.  1< .  15 


ENTER  AN  IDEAL  ABSOLUTE  MAGNITUDE  FDR  EACH  BAND 
OF  THIS  PROTOTYPE  FILTER  (USUALLY  1  OR  0>  . 


IjO 


ENTER  THE  RATIO  OF  THE  BAND  ERRORS  'ONE  NUMBER 
FOR  EACH  BAND>.  FDR  EXAMPLE  A  3  BAND  FILTER 
MIGHT  HAVE  AN  ERROR  RATIO  OF  1,  10,  5. 


£,  1 


♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦« 

ONE-DIMENSIONAL  FIR  PROTOTYPE  FILTER  DESIGN 

FILTER  LENGTH  =  61 


LOWER  BAND  EDGE 
UPPER  BAND  EDGE 
DEI  I  RED  VALUE 
WEIGHTING 
DEVIATION 
DEVIATION  IN  DB 


BAND  1 
0. OOOOuOOOO 
.  1  0  0  0  0  0  0  f  0 
1 .  U  0  0  i.i  0 1 1 0  .1  o 

it .  0  0  0  0  0  0  0  0  0 

. 017953356 
-  34. 91 70371 £5 


BAND  £ 

. 150 0 0 0 0 0 0 
1 . 0  0  0  0  0  0  0  0  0 
0 .  0  0  0  0  0  0  0  0  0 
1  ■  0  0  0  0  0  0  0  0  0 
. 035906712 
-£3.396487512 


BAND 


DO  YOU  Mlih  TO  REDESIGN  THE  PROTOTYPE  FILTER"' 


DO  YOU  WISH  TO  CONTINUE'7 


t****************  *****************************  ***■*******< 

Ti-G-  [i  I 1  I  Q! iGL_  f  IP  F  I L.  i  tP  JE  I  I  irN 


♦  »  ******  *  *■, 


61  B  i 


:  AMPLE  POINT!  FILTEr 


MAGNITUDE  OF  THE  c‘~D  F^EOUENC  RESPONSE  IN  The 
THE  FPFl  »l  )F Ni  "V  kF  •  HOfi  - f  T  *  FP  >P  i*ifA‘  ^ .-if-*  * 
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* j A DP AN T 
If  * 


15  \ 


(THE  TMD-D  I  MEN?  I  ONAL  IMPULSE  RESPONSE  IS  BEING 
WRITTEN  TO  YDUP  HARDCOPY  DUTPUT  FILE  (RESULT) . 


BO  YOU  WISH  TO  HAVE  TABULAR  BATA  FOP  ANY  CONTOURS  IN  THE  FIRST  j 
QUADRANT  OF  THE  ME* Ml  PLANE  PRINTED  OUT  ON  YDUP  HARDCOPY  OUTPUT  FILE 
(RESULT) ? 


ENTER  W  <0.0  TO  1.0)  OR  ENTER  3  TO  CONTINUE  MITH  THE  PROGRAM. 


HOW  MANY  POINTS  DO  YOU  WANT  OUTPUT? 


FOR  lil  =  0.  0000PI »  (M3j  Ml  >  =: 

ME :  0 .  0 0 0 0  0 .  0 0 0 0  0 .  0 0 0 0  0 .  0 0 0 0  0 .  0 0 0 0  0 .  0 0 0 0  0 .  0 0 0 0 

Ml:  .0000  .  0000  .  0000  .  0000  .  0000  .  00 00  .  0000 

ENTER  W  -.0.0  TO  1.0)  OP  ENTER  £  TD  CONTINUE  MITH  THE  PROGRAM. 


HOW  MANY  POINTS  DO  YOU  WANT  OUTPUT" 


FOR  M  =  .150  OP  I  j  (WE  j  lil  1 )  = : 

Me'!  0.  0000  ,  06GB  .  1  BE?  .  l’BAO  .  E65B  .  B B 1  7  .3380 

Mi:  .■:???  .BEE5  .  BIT1  .  3771  .El  IE  .  1 3  BE  .  0E15 

ENTER  l.l  (0.0  TO  1.0'  OR  ENTER  £  TO  CONTINUE  MITH  THE  PROGRAM. 


HOW  MANY  POINT:  DO  YOU  WANT  OUTPUT? 


( 


FOR  M  =  . 1 0 0 OP I »  (ME 5 Ml)  =  : 

ME:  0.  0000  .  04,57  .  0353  .  1E30  .  1707  .313  ? 

Mi:  .3577  .3511  .  £333  .  SOS"?  .  1-4?  .1144 

ENTER  M  (0.0  TO  1.01  OP  ENTER  3  TO  CONTINUE  MITH  1  r  PROGRAM 


.  3560 
.  0316 


■  ANY  POINT:  WITH  COOPT*  I  NATES  --.15«-.E5'  r'-E  If-v-LIB  AM-  >2 -'Ll' 
E  DISREGARDED.-' 


DO  YOU  WANT  TO  CREATE  A  PLOT  FILE  the  C’ALCCM  c! 


aSjsJ  --OfcA? 


DJ  ■  Q  J  ’i T  TO  CREATE  A  T*  1 


PLA  : -D  PLl T  Of  THE  FRcC'UENC V  ®E 3 FENCE 


•THE  DHfA  -EuUlPEB  FCP  THE  DIIIFLA  PLOT  I  S  HCM  CN  TAPES. 1 


> 


C 


normal  ppggpa/  tepnin^ticn 
1 1  ?  ■-•  1  0 1 '  MAX I  MI.IM  EXEC  UT  [  £>  Ft. . 

4.C.4IJ  CP  SECONDS  EXECUTION  TIME. 
COMMRN  -  BEE  I  h  <  pnij  TE <  PRO?  j  i_£ 

C GMMAf  JD—  BEE  I  N  ?  PLF  ILE«  p^n-  IlE 
— LOG  PL  FILES- — 

mvlib  f.ir-uT  i  Output  ♦profile 

— REMOTE  INPUT  FILES  — 
r- 1 4  O.J14  J 

NEWCYCLE  CATALOG 
PP  =  ij  ijp  DAYS-’ 

CT  II'=  T79030H  PFN = B  A  T  A  3 1‘PL  D  T 
CT  CV=  003  ?N=AFIT  00000256  WORDS . : 
COMMAND- -FILES 
—LOCAL  FILES'— 

MVLIB  {INPUT  {OUTPUT  ♦PROFILE 

—REMOTE  OUTPUT  FILES— 

C  1 4  004.1 

COMMAND-  BATCH? C 14 0P4J? LOCAL 
COMMAND-  EDITOR 


YOU  HAVE  AN  EXISTING  EDIT  FILE 
ED  I  T  ?  C 1 4  004-1  *  3 

ONES  TRUNCATED-  CH=  72  CHAPS'?  LONGEST  LINE  WAS  l£6 
. .  L?  A 


100=1 

110=0 

120= 

=0> 

130= 

<9> 

140= 

150= 

160= 

170= 

1 8  0= 
190= 
£00= 
£10= 
££  0= 
£3  0= 
240= 


PROGRAM  PLT3D  74/74  0PT=1 


j 

i 


1 


10 


10 

£0 

30 


PROGRAM  PLT3D  <  I  NF'UT  ?  OUTPUT  ?  TAPE2  ?  PLF  I LE 

D I  MENS'  I  ON  WORK  <650J>  ?H1  DCHEB  (.57."'  ?  CURVF I T 

COMMON  /ONE/  HI DCHEB?  CURVF IT?  KD 
EXTERNAL  G 
READ  <£?  1 0>  KD 
FORMAT <13^ 

READ  <£?  £ O^  CC'URVF  I T  <MR>  ?  MR=  1  ?  9> 

FORMAT  <5E18. 9«/» 4E1S. 9> 

READ  <£  ?  3  CO  '..H 1  DCHEB  <MT;  ?  MT= 1  ?  KD> 

FORMAT  G9G7E18.9?/^> 

CALL  CDMPRS 
CALL  BGr <F'L  <  1  > 

CALL  TITL3D  C1H  ? -1 ? 7. 0? 6. 0> 
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.r- 


( 


£  5 1 1  = 

CP’-L 

*M*  1  *  V-i  ^  » 

260= 

15 

7  9i_l 

H,  El  3D 

270= 

Chll 

GP  Hr  3D 

•  0.1 

CRLL 

lUP'FUN 

2  3  0= 

Chll 

Ef'Dr'L 

3  00= 

ChLL 

DONEF'L 

310= 

20 

:to- 

►.  EiND 

320=1 

FUNCTION  G 

74  ■•-74 

J  r.  =  ;‘i 

34  0= 

1 

FUNC 

TIQN  G1 

12.  *  11!.  •  1  c . 


<  .  1  c  5  • 


LlN  I  —  1 


10 


3 

4 


1‘ 


3N  i.i= 
z' 6«  I J = 

370= 

280= 

390= 

4  i’i  ij = 

410= 

4  c.'  0= 

FIT' 1 J 
4  30s 

£*li.i£'.:i  + 

44  0= 
l.il  J  ♦CDS 

45  0= 

Ml) ♦CDS 

46  0= 

£♦'•11^ 

470= 

£♦1.1 1  ’>  ♦C 
48  0= 

£♦1.11.)  ♦C 
490= 

500= 

51 0=^EOR 
520=1 
53  0= 

540=  . 

55  0= 

560=  .  DISSPLfi  VERSION  7.2  .. 

570=  NO.  OF  FIRST  PLOT  1 
580= 

590= 

6U0= 

610= 

620= 

630= 

640= 

650= 

660= 

670=  PLOT  NO.  1  M I TH  THE  TITLE 
68  0= 

690=  HRS  BEEN  COMPLETED. 


COMMON  sOUZs  H 1  DC  He'S  *  CURVFIT •  KD 
D I MENS  I DM  HI DC HEB '57) •  C UPVF I T  1 9 > 

PI =3. 141592653c 
i.lc  =  X  ♦  PI 
Ml  =  V  ♦  PI 

6  =  HI DC HEB 1 1  1 

DO  150  M=£i  i-  D 
• 3  =  G +  H 1  DC  HEB''  '•  M ''  ♦  <  (  COr 


150 


+  L  UP  VF I T  •'  8  •'  ♦CO  I  1 
+  CURVFIT  ''.4,1  ♦CC:  ■ 

■i-  curve  i  t  •; 5  -•  ♦co  ■:  < 
+  CURVFIT  17.' ♦CGi  ' 
+  CURVF I T  C6,'  ♦»:  DC  -. 
+  CURVFIT  <9.)  ♦COS-' 
CONTINUE 


RETURN  i  END 


PLOTTING  COMMENCING 


1  ' 
1 
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t  exeats?' 


7  Cl,  ,kt  - 

711.'=  PLDT 

720=  f-lgt 

DIG 
730=1 
74  0= 


ID.  reap: 

1  1  8.  c.6.  1  ? 


NGN  7.4  fiG'-«  1  380 


JDD=C  1 4  0*7*4  J  •  i»iP'(-f?£ 


r&U*  • 

i  »’*  U=  • 

..IQR4  J-C’-JilNEN 

•:  igng 

7 

.OI'P  - 1  i  = 

2. 

300= 

Y3DH,-.I  3= 

2.  00 

310= 

Z3BAX  1 7  = 

1  •  5  0 

830= 
84  0= 
850= 
86  0= 
370= 

3  90= 
900= 
91  0= 
93' 0= 
9  S  0= 

94  0= 

95  0= 

96  0= 
970= 

98  0= 

99  0= 
1000= 
1010= 
1  080= 
1080= 
1040= 
1050= 
1060= 
1070= 
1080= 
1090= 
1100= 
1110= 
1120= 
1130= 
1140= 
1150= 
1160= 
1170= 
1180= 
1190= 
1200= 
1210= 


III  D  UNITi 


‘I  EURO  I  NT 


XVU=  1  a  8002+01 
YVU=  1.00OE+01 
2VU=  1 . 200E+01 

IN  .98 S .  3-D  UNIT: 


GRAPH  GET-UP  ('  GRAF3P  •• 


□PIG IN 

X3D0R I G I N=- 1 . 0  0  OE + 0  0 
Y3B0R I G I  N=- 1 . 0  0  0 E+  0  0 
Z3D0R I G I N=-2 . 5  0  OE - 0 1 

STEP  SIZE 


X3BSTF-  1 . 000E-01 
Y3DSTP=  1 . 000E-01 
Z3BSTP=  1 . OOOE-Ol 

MAXIMUM 


X3BMAX=  1 . OOOE+OO 
Y3BMAX=  1.00  OE + 0  0 
Z3BMAX=  1 . 250E+00 


LOCATION  OF  CURRENT  PHYSICAL  ORIGIN  . 
X=  2.25  Y  =  .82  INCHES  . 


1  55  0= 
1  £  3  ''•= 
1840= 
1550= 
1560= 
1570= 
1580= 
1580= 
1500= 


FPOl‘1  LDI.IEP  LEFT  CORNER  OF  PAGE 


131  0= 

END  HISS 

1 320=»EOR 

1550=1 

CSA 

1340= 

18.55.55 

1 35  0= 

18.  65  •  56 

1  36  0= 

1  .  65 . 66 

1370= 

18.55.53 

1380= 

18.55.58 

1 38  0= 

18. 65 • 58 

1400= 

18.55.58 

141  0= 

18.55.58 

1450= 

1 8 . 55 . 58 

1 4  3  0= 

1 8 . 55 . 58 

144  0= 

1 8 . 55 . 58 

1450= 

13.55.58 

1460= 

1 8 . 55 . 58 

1470= 

13.55.31 

1480= 

1 8 . 55 . 33 

1 48  0= 

18.55. 38 

1500= 

18.85. 33 

1510= 

13.85.33 

1550= 

18.56. 18 

1530= 

1 3 .56.13 

154  0= 

1 8 . 56 .  1  '3 

1 55  0= 

1 8. 56. 1 3 

1 56  0= 

18.26. 18 

1570= 

18. 56. 1 3 

1580= 

18. 56. 1 3 

1580= 

18.86. 18 

160u= 

18. 56. 1 8 

1610= 

1 8 . 86 . 1 8 

1650= 

18. 86. 18 

1630= 

13.56. 18 

1 64  0= 

1 6 . 26 . 8  0 

165''= 

1  c* .  86.  c.  U 

1 6  c*  0= 

1  *-■ .  66.  c  0 

1 67  0= 

13.86.50 

1630= 

16.56.50 

1680= 

16.5o.50 

1700= 

1  T' .  6  6 . 6  0 

1710= 

B.B 

13.56.60 

MNAND- 

BEGIN* 3 

FDS.Tr  KM 

5555  VECTORS  GENERATED  IN 


1  PLOT  FRAME 


NOS/BE  L518C 
CI40Q4J  FROM 


L5 1 8C-CMP 1  1  0/8  0/8  0 
/  00 

rs  -  file  input  ,  m:  04 


.131  CP  SECONDS  COMPILATION  TINE 


NDM-FATAL  LOADER  ERRORS  - 


■EX I S TENT  LIBRARY  GIVEN  -  SYS ID 
NON-FATAL  LOADER  ERRORS  - 
■EXISTENT  LIBRARY  GIVEN  -  SYS ID 
STOP 

070?L'0  MAXIMUM  EXECUTION  FL. 

7.83 0  rp  S  EC  C,JD:  EXECUTION  TIME. 


T 78 0  3  0  3  RFf  ;=  roi.'RF  I LE 
)  1  1  S  N=Ap  I  T  0  0  0  05  ?  5  WORD  S' . 


00000640  i.iGFT>: 
5584  '•iORD: 
8.077  SEC, 
10.856  ..-EC , 
555.  556  r  ii> S , 


56 . 5 u . PP  15.1 5 0  SEC. 

56. 60. E J  END  OF  .JOB*  00 


00000556  WORDS. 
FILE  OUTPUT  i  DC  40 
14356  USED'' 
5.5*5  r D J . 

/  .  8  H  D  J . 
1.677  AD-'. 
11.634 


D-'Tc. 

T78  0 303. 


54/80 


.ALL OMR  plotter. 
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ENTED  DIRECTIVE?. 

AT  i=  Oil  :N=AFIT 
PFN  I? 

DISiPLft* 

RT  CV=  99?  i-N=RSD  DRAM- 1 -END* 

THE  FOLLOWING  PLOT?  HAVE  BE EH  PROCESSED 


PLOT  1 


END  POSTPROCESSOR 
END  ONLINE 
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-0.25 


111 


SS&EEi'ftt Oey/JK 


27.  Design  Example:  Dimensional  Frequency  Response 


Bibliography 


1.  Ciccolella,  David.  Desifrn  of  Linear  Phase.  Finite 
Impulse  Response.  Two-Dimensional .  Dir; ital  Filters . 

MS  Thesis,  Air  Force  Institute  of  Technology,  December 

1980. 

2.  Mersoreau,  Russell  M. ,  et  al.  "McClellan  Transformations 
for  Two-Dimensional  Digital  Filtering:  I  -  Design," 

IBBB  Transactions  on  Circuits  and  Systems.  CAS-23t  405- 
424  (July  1 97o) . 

3.  McClellan,  James  H.  "The  Design  of  Two-Dimensional 
Digital  Filters  by  Transformations,"  Proceedings  of  the 
Seventh  Annual  Princeton  Conference  on  Information 
Science  and  Systems.  247-251  (March  1 973). 


*oi  ry*f 


Appendix  B 


\ 


L5.  sting  of  the  Two-Dimensional 
Digital  Filter  Design  Program 

This  appendix  contains  a  listing  of  the  two-dimensional 
digital  filter  design  program  developed  in  this  investigation. 
The  program  is  written  in  Fortran  IV  extended  and  uses 
overlays  to  reduce  memory  requirements. 


oooo  oooo 


?.S.-S  *.1*' 


*  ,  V*  >  (T 


'^v  v  ' 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THIrJ  P  jfv-1'1*  !“  jT  3  0 '  r  ND-DH  r,S  1  f * /■  L 9  L iNLAt<  bHIF''-.i  NVARiANT  , 

L 1 HE  A  R  H,'j  i,;  ,  e-INI'*"  Y  m'-'m  Ls  ^  ^^ousr,  DIGITAL  FILTERS 

3Y  'J  °  IN  3  T  Hr  SOL'LL  N  ,  '  ’Wi>  t-Of.  RATION.  TUI  USER  CAN  '  D  D  S  c  TO  JSr  1 1 1  1 1  c  f 
-J-Hr  ^r  ;rfo\n  rr~.~>  *,r  CLEl L A |  Tf-AnSf  jRr.ATIUN.  THc.  5I7E  0r  THE  2-0 

FlLr<-p  |  hat  IHr  •’ir.  1  -1  '-i’ll  DESIGN  can  N£  CHANGED  DY  CHANGING  T  Hc 
01  IE  NSIC  )  ”  0  F  T  Hc  \  ~  AY”  I"*7,  ALPHA,  X ,  Y,  H,  I.XTN,  DES  ,  GRID,  NT, 

Hi  03  H£~ ,  Mil,  DAV,  H'lC-i-L  P>On,  HOi-X,  CcG ,  AND  H  2  0  t  AND  THE  VALUE  OF  TH' 
VARTA^t"  UFMAv  AF  t  m't  ca  T  "0  IN  TP:  CO*' MINTS  IN  THE  VARIOUS  SECTIONS  OF  TH? 
PROG F Am. 

AUT  OE  -  LAVJD  01 3  3  r  1  “  LL  \ 

Hx  FJ?'':  T  PTT’UTF  Of  ’iOHNOlOGY 
h  h  °  T  . «  B~  R  i  ?  •} 

4  «,  f  ,  4  .  <  »  *4  »  ic  *  u.  ,  I M  •  *4" 

0\M-  LA  Y<  FT.L  t'  ,  ) 

,A.  .s  *  ,  »<!,*.*  <.  111  1  >  1  <  jl  I  *  ♦  »  l  -  *  *  V  t-  * 

PROOF  AM  r  )NTcOL  '  I  ND‘l'r ,  -j  LtFCT »  R  ESULT  , T  « PEi  =  R  2SULT ,  T  A  ?E2 ,  PLO 1) 

THIS  PIC6FAN  3ALL3  r,,E  .. 'r X  rcOG?AMS  THAT  CONSTITUTE  THE  2-D  DESIGN  FACRAG 

COMMON  /A \  A/H  1D0'<  £1  /P  cV3Ur  V FI T  /CSCA'YOP72 
CO’-^ON  /  m/NYO-T/,  M  Y  C  FT  9  ?  MY  OPT  i* 

COM"  Of-  /DNF/NCT  T  /con  P/HC'TF  AN  /FI'/S/H  /TEN/ H203  H=.D 

'‘IM-NflDN  H1-D3H -*(5T)  »  CLPVFIT(IP),  HCT  RAN  (  3  , 3)  ,  HISS) 

D I m • 1 E I D K  HPMSH  r‘  ( 


C 

c 


c 

c 

c 


t  :m  pclTjn 
WRJ '  E  ( 1,  1  ) 

5  Fo'  /AT  (// ,1X,'M1H‘),/  ,..y, 

i  "  P  TOGF'f  *•"  FOR  THE  DESIGN  OF  r  H  >DI  HENS  I  ON  AL 

Z  "  ejMT-.  IuoUL*E  »-:SPDNSc”,/,iEX,  “FILTERS  USING  THE  MCCLE..AN  ** 

7  **T  •»  A  NS  FDOMjj-  T  ON'* ,/,  iX,’i  (IH»  )  ,  /  /) 

p Hi  NT  I 

in  P(,*t«AT  ('/ ,l<  , (  i«  M  ,  F  ,/X, 

*•  FPOGRAH  FOR  THc  DESIGN  OF  TWD-OI  MENSI ON AL“ 
l  ••  FINIT-.  IMP'JL'P  <  “SP--’  h$r  ’*,/,  IE  X,  "FILTER  S  USING  HE  MGCLEL- AN  " 

3  "TXANS FORM A TT ON",/, 1X,?1(1HV ) , ///  ,4X, "ENTER  ALL  FREQUENCIES" 

L  "  IN  R  ADI  A  Nc  SE^HEf  ?  O.l  AnO  1  •  0  •  THE  PROGRAM", /,  ^X,  "HILL 

b  "  AUT  D*-'  T  IP  ALLY  HULTILPY  TIMES  PI,",//  ,4X,"IN  RESPONSE 

f>  "TO  YES/MD  °,,rS~T'DNST  LN'IEk  L  FOR  NO  AND  i  FOR  YES*",/) 

PROG PAM  C HPr IT  CALS'llAT'ES  TH  r  APPROXIMATING  FUNCTION. 

CAL-  CV:  PL  A  Y  (  T 4  u~  L ,  I ,  T) 

jp  ]•  Hr  6  PP:  oyXM  AT  ION  DR«)3TSS  PROCUCfcS  UNSATISFACTORY  RESULTS,  THE  USER  CAN 
TERM  I  ”’?T  E  T-tf  ?-D  D^TCI  PROGRAM, 

IF(  YoPf  7  ,  EO,  S  .OR,  MY  CpT  3  .  EQ.  0  .0?.  MYOPTi*  .ED.  2)  GO  TO  60 

PROGRAM  Pf-OTYPE  CALCULATES  THE  IMPULSE  RESPONSE  OF  THE  ONE-DIMENSIONAL 
PROTOTYPE  FI  L  rER. 


z.  • 


c 

c 


CALL  O'/E  PL  A  Y  ( 3H  lf  L  ,3,  3) 

IF  THE  )SrR  ONLY  NTSH^S  TO  MRION  A  ONE-OIMENS ZONAL  FILTER  HE  CAN  TERMINATE 

- - ...  •  ■  . . •  —  i 


C  THE 

c 


r 

C  - 


( 


C 


c 

c 

c 

c 


£ 


I 


i 


i 


c 

c 

c 


C 

c 

C  c 

c 

t  C 

f~*  c 

{  c 

c 
c 

i  c 

c 
c 

(  C 

c 

c 


! 


c 


f 


(- 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

0 


c 

c 

c 

c 


CFSIGi’  PS.  I'?*?'  Mi* 

PRINT  2 

Zb  cOr-n  {/  YD'J  M  ]3H  10  COM  I  NU£°",  /) 

MM*  »  MT  Oor  •>  '  i 

TF(MY(C{<»  )  CO  TO  V  , 

PPOGt  AM>  f-yRCtM,  MMKn,  UT  CALCULATE  THE  TWO- 3 1  M  NS  1 0  N  AL 

IMdULGF  r.  tSP&'S*. 

CALL  (*V=FLAY(^mm-l  »>»,  ■) 

Of  I  M*  7 

3>;  FO- M  A  ‘I  ('  »UX,*-'0  Y<vj  WISH  TO  C/  LCULATt  THE  ?- 0  IMP  JLS.E  RESPONSE" 

1 

i  E A ,MYCprM 

IFC'Yt  PTM  .FT.  )  00  r0  M 
CALI  C  V:  f  L A  Y(  Mr  L  )  >  >  1 ) 

CA.t  L  CVEraAYMW  1fL,S  >) 

41  PRjWU:  : 

wr>j  •  ?.  (I?  c  > 

51  FOMAI  (tv, ri(  !«•*•)) 

PFOG*AM  Gf  A  =  H  ?  CM"'?  f~“S  OAT'v  cqj  int  CALCOMP  PLOTTc/’., 

CALL  OVfkHYPHX'LjCjj) 

6T  STCP"  NORMAL  c  OG  A  M  T  Cs-»M3  NATION" 

ENn 


*.*.*»•  «  *.,***  «.  *  •  IS.  *«  1  4».Jf  .  4  4  ...  t  •  4  **  **■*  *>*  ,  I  .  »  f  V  t  t  44  A),  l 

GVERLAY(  P'1L  ,1  ,  "  )  ! 

MX  IK  A4.1  »  X  >  >  I1  X  i  M  Ai  K  <  X  Jf.  XIOUj  A  4K  :  »  A  X  ^  4  X  4  X  M  J.  4  «  AL*  A  A«»  ■*.  B  I  i  A  kl  A  A  »  UHlI.4  * 


Pk OSKAh  C  P.  FIT  | 

f 

THIS  DtM  G 1  A  M  orRn^M'  A  LINEAR  L  f  A  b  T  SQUARES  A  PPROM  HAT  I  3  M  WITH  CONSTRAINT*,  f 
THE  USE ‘ME  rVJy-CTM-W'TORAL  CONTOUF,  DEFINED  BY  A  SET  0-  POINTS,  IS 
APpP  OXI  A"  r  0  TY  THE  rOLl.OWTwr:  FUNCTION?  P(W2,Wl)  r  A*G1(WZ,K1>  + 

B*G2(W?,WD  +  MGMW?,Wil  +  Ci'G!'  (W2,K1)  ♦  E*G5  (  W2,  W  1 )  *■  F*Gb(W2,Wi)  ♦ 
G*G7(W2,W1)  ♦  HfcGA(Vr,V|j)  +  I*GS(W2,Wl)  OR  P(W2,W1)  =  A  *  B*C0S<W1)  + 

C*COS(W;)  +  CMOS(Wl)- CM(W2  )  +  E*  C  OS (W l ) *0 OS ( 2  W2  )  +  F*  0  DS  <2  W1  >  *  C  OS  (W2)  + 
G*C0S(2«1>  +  h«C0S(?W7)  +  I*  COS  ( 2Wi  )  *  COS  ( 2*42)  ,  THIS  PROGRAM  CA.3ULATES  THE 
VALUES  OF  A  THROUGH  '  T,!  THr  ABOVE  EQUATION. 


COMMON  /rjJR/'lf'RAN  /O  TO/CU.-VFIT  /CCC/MY0PT2 
COH-'ON  /QQD/NYQM7,  *1 Y 0  P  T  Q ,  w  Y 0  PT  i  i 


DIMENSION  MCTRANM,’),  C  L»\ff-  IT  (  18 )  ,  A(18,18>,  B(16) 

DIMENSION  «2(<5nfS'  ,WKii1- '  ),G(9jIvf  ),  D(S,li>)  } 


MCTRAN  STORES  THE  NI*  p  CONSTANTS  OF  THE  MCCLELLAN  TRANSFORMATION.  IF  THE  j 
FIRST  O-OEP  PCS  LEILA M  TRANS  F  QRKA  TIGN  IS  UStD  (MY0PT2  EQUALS  FOUR),  FIVE  Cc  T*| 
NINE  CONSTANTS  WILL  PE  SET  E  DUAL  TO  ?CRO,  THE  FIRST  NINE  ELEMENTS  OF  j 

CURVFIT  ST  C5  E  THE  N  T"  r  CONSTANTS  OF  THE  APPROXIMATING  FJNOTION.  THE  LAST 
NINE  EL E HINTS  STORE  THE  LAGRANGE  MULTIPLIERS,  WHICH  ARE  NOT  USED  BY  THIS  { 
PROGRAM.  W2  AND  Ml  MORE  THE  COORDINATES  OF  UP  TO  5Q>0  POINTS  THAT  ARE  j 

SUPPLIED  PY  THE  US's  TO  DEFINE  HIS  CONTOUR  IN  THE  W?,Wi  3_  AN  E.  i 

0  IS  UOD  TO  S A  Vp  TH;  COEFCI  riENTS  OF  THE  CONSTRAINT  EQUATIONS.  , 

REAL  MCI  RAN  ! 


PI  =  3.1 41  5  9265  r  8  98 

THE  USER  CAN  CHOOSE  r0  USE  EITHER  THE  FIRST  FOUR  TERMS  OF  P(W2,W1;  OR 
ALL  NINE  TF^w, 


10  PRINT  2  j 


I 


c 


c 

t 

I 

I 


t 


( 


c 


c 

c 

c 

f  c 
c 

(' 


C 


C  C 

c 
c 

(  c 

c 

Cl 

( 

(■ 


0 


20  (/,  /,v,  o  Vt'HO  Y9'/  Ttsh  '?  C  "AFPKOXrHATE  Y0J<  2-D  0 JNTOUR  WITH 

14  T'lijf  3?  M IN  *  ,3,HAPrPC>XI^ATlNG  FUNCTION?  E  N  T  E  P  ’+  CP  9. 

2  ,/) 

, it y  c  jr  ? 

I F (  -5  Y t  FT  2  •  Nc.  ••  .  AUD.  m YOPT 2  *  NE .  9)  GO  TO  1' 

PM  NT  '  ■ 


40  foWj;  {',i»XfSq'*no  YOU  PAVE  ft  Pf>  F  Oc  TE('MIN£  J  S:T  OF  ftPPRGXI  M4TI  NG 
i  FUNG  T  JON  ■  TUG  TAT  S’’,/) 

PEAr'*  »  MY  c-'r  ? 

IF(4YCPT?  D  GO  T0 

5*H  PRINT  c 


60  FOPM/-T  (/,  uX,  G  l-  *  T  K  1-0  FREQUENCY  THAT  YOU  WISH  TO  MAP  TO  Y 

10UP  2-n  ruMTO-J?  ,/,  ,X,2'.H  |i,  TC  j .  il  (X  PI))., /I 


REA  O'  ,  F 

IF(F  .IE,  » QF «  p  ,G-:.  1)  GO  TO  Li 

CORN  =  :OG(F‘‘FT) 

PRINT  « 

80  FORMAT  (/,fcY,»F,--To  Y  o  J  MV  t  *  PF  FOSTER MIMED  iET  OF  CONST  KA I  NT  EQ(| 
1  ATI  ONE  *»,  /) 

I-  RAO'  ,  NY  O aT  4 

I F (  y y C PT 4  .  EP.  1)  GO  r0  Hi 
90  OPTNT  1;  ( 


109  FIN*  SAT  C/,4X,  G-'^HnQGI  CUE  OF  THE  FOLLOWING  CONSTRAINTS  BY  NUM aEk 

1  .  fc  X  ,2  EMI  )  Ns*  MAPS  TO  (W2,Wl)  =  fQ,  I),bX, 

2  31H2)  W  =  FE  °S  (  02,W1)  =(PI  ,PI)  ,/,6X, 

3  21H-U  QO'H  I  *  N  C  2  APCVf,/) 

REA  Ov  ,  MY  OFT  6 

I  F(  m  YOPT  E  .En«  1  .OF.  MY  c°Ti  .10.  2)  NCON  =  1 
IF(MYOPr  L  .  EQ.  M  r)C 0 s’  =  2 


*. 


IF  THE  pPGGRA-f  SUP'Httc  THE  CONSTRAINTS,  THE  LOWER  LEFT  M  RT  OF  THE  A  ARRAY 
AND  THE  LPWik  3  ART  O'  TH“  n  AnR  A  Y  A ! F  SET  UP  ASSUMING  THAT  T  H  £.  CONSTRAINT  W='  ; 
MAPS  TO  ( W2,  Wl ) = ( °I ,°I )  WAS  CHOSEN  °Y  fH£  USER. 


8 (MY  0FT2  +1 )  =  L.  • 

00  1  ■*  «  =  l,VCON  ? 

TO  ID/  J  =  l, MYO  FT 2  * 

A  (MY 0°“?  tK,  J)  :  1.  i* 

104  COUTINJ- 

107  rONTIN'.F 

IFC'YCPI'E  .  E"1.  1v-  GO  TO  IMF  ) 

IF  THE  USER  CHOOSE  'THrR  3R  C'JPft M  GENERATED  CONSTRAINTS,  ON-Y  A  FEW  ENTRIES 
OF  THE  A  A  NO  9  A^'M  Yl  MUST  Q  E  CHANGED. 

8  ( M  Y 0 P T 2  +WC  CM)  r  -  1,  ) 

A (MYOPT2  +UC  ON , 2 )  =  -l.i 
A (MYOPT  2  +NC  ON, X)  =  -i.O 
IFCiYOPT  2.  M  E.  9)  GO  TO  i  <5* 

A (MY  OPT?  +NC  OM, 5  )  =  -i.O 
A  (MYOP72  +U0  CM,  G  )  =  -1.0 
GO  to  15  5- 

HERE  TMf  I'SEF  CAN  EN^ER  HIS  CNN  CONSTRAINT  EQUATIONS.  EACH  CONSTRAINT 
EQUATION  US=S  ONE  P  Q-i  Q~  the  a  a  pi.  A  Y  (LOWER  LEFT  SECTION)  AND  ONE  ENTRY  OF 
THE  8  A- PAY  (LOWER  SECTION). 


119  PRINT  12  £ 

120  FORMAT  (/,<*X,  4i"ENTER  T  RE  NUMBER  OF  CONSTRAINT  EOUA  TI ONS.  , /) 
READY,  NCON 

I F ( NCON  »L  T  ,  1  .OR,  NCON  ,GI  .  MY0PT2)  GO  TO  11!) 

IF(  M  YOPT  2  .  EQ.  4)  PRINT  131 

130  FORMAT  (/  ,AX ,  5 ■'»  H FACH  CCNSTRAINT  EQUATION  MUST  HAVE  THE  FOLLOWING 

1  FORM:,/  ,4X,5=5HroS(W)  =  A  +  8«C0S(Wi)  +  C*COS(W2)  *•  D*COS  ( W1 )  *  COS 

2  ( W2 )  « ,  /  ,  9  X,  64HE‘’T  ER  COS  (W),  l,  COS(Wl),  COS(W?),  CD  5  (  W1 )  *CD  S  ( W2) , 

3  ANQ  CAR PI 4  GE  ,/  , 4X , 75H  RETURN  FOR  EACH  CONSTRAINT  EQUATION.,/) 


mmmmm 


r+mtrrih^'’' 


mjpn 


ssjwjv 


oooo  oooo  oooo 


I°(MYCPI2  .  n.  -5'  P'vIN'  inf 

14«  F  C* w  A  7  {/  ,4X,r  HEATH  CCnSTRAIN‘1  EQUATION  MUST  HAVE  I’  HE  FOLLOWING 

i  FOP  M  ?  j  /  #4  y,  >r,H"OG(W)  =  \  +  D'COS(Wi)  +  C»C0S(W2)  f  D*:0S(MD*  COS' 

2(W?>  +  ,+Y,57  (■£'  COS  (W1)^C0S(2W2)  *  F  *003  ( 2  Wi  >  *  COS  (  W£  )  + 

3  G*  COS  (cWi)  +  H>lf'0S(?W2)  ,/  ,4X,5bHI*C0S(2Wl)  *30S(2W?) , 

4  ENTER  C3S(W),  i,  CCF(wi),  CuS'W?),/  ,4X,  -C2HC0S  (Wi)  *  CDS  <  W2> ,  C0S(W 
5i)*:oS<2W?)  »  COS' 2Wl)  *C0  ?(W2>  ,  C0b(2Wi),  /  ,  HX,  57HCDS  (  2W2  )  ,  I0S(2W1 
S)*C3S(2V)2)  ,  ANT  ~  A  P'-'  I A  3  E  RC1  URN  FOP  EACH  EQUATION.  , /) 

CO  5 vT  LR~AP=1,NC0N 

15  0  PH0‘,  B( M Y  n~  T 2+L REA  D  ,  ( A < MYOPT 2 +LR EAD , JZ) ,  J7=l,rtfOPT2) 

C 

C  THE  UP0  -  F  FIGHT  FNTP’FS  0°  T  HF  A  ARRAY  ARE  ENTERED.  EACH  CONSTRAINT  FQUATTCN 
C  USES  ONE  COlUHN  IN  T"TS  SETT  TON  OF  THE  A  ARRAY. 

C 

1*5=5  PC  i~n  '<°=i  ,NC?M 

">0  t'>  *  (0=1,  HY  CD1  ? 

8  (JPj  Mv  0  FT  ° +YP  )  =  A(PY0PT2+K°,JP) 

iej  contj  nue 

1?  J  CONTINUE 

c 

C  THE  LOWER  RIGHT  SECT'TN  T°  T  t-E  A  AFRAY  IS  ’'ERO  FILLED. 

PO  ?  .  0  NA  =  1.  NCOM 

PO  LOT  MB=i,NCCN 
MHVQpr  2+NA.NY  C°T2+Kn)  = 

190  CONTIN'ir 

2C  0  CONTINUE 

HERE  TH-‘  CO-  F*ICIENT  T  0°  THE  CONSTRAINT  EQUATIONS  ARE  $A*/£D  SO  THAT 

THEY  CAN  °E  P-’TNTEO  L  A T°R. 


DO  2  -5  LSA=i,  NOON 

Ol.SA  ,1)  =  9  (M  YO®T  2  +  LSA) 

DO  214  LSn=ijM  YQPT 2 
D  (L  SA  .  L  S°  +  L)  =  A(MY0PT2  +  LSA,LSB) 

204  CONTI  nit 

205  CONTIN'5* 

HERE  THE  USER  C4N  EN'ER  A  SCI  OF  POINTS  (UP  TO  500)  TO  DEFINE  HIS  CONTOUR 
IN  THE  W  2  j  WL  PLANE. 


PRINT  2i  (• 

210  FORMAT  </,4X,ft-*H00  YQU  WISH  TO  ENTER  A  SET  OF  °OINTS  THAT  DEFINES 
1  YO'JR  CONTOUR’,/) 

READ1*  ,  MY  0PT6 

I F< MYOPIC  .  NF.  1'  GO  TO  250 
PRINT  22  0 

220  FORMAT  </,4X,37'H0W  MANY  POINTS  DO  YOU  WISH  TO  ENTER?,/) 
READ*,NP0INT3 
PRINT  23  0 

230  FORMAT  < /, 4X,S3H~NTER  THE  <W2,W1)  COORDINATE  PAIRS  <W2  IS  THE  HORI 
170NTAL  AXIS).,/,AX,32HCAFRIAGE  RETURN  WHEN  CO  RVENIENT  . ,  / ) 

DO  240  N°= i.N POI NTS 
READ*,  W2(N°)  ,  M1(M  F) 

240  CONTINUE 

GO  TO  27 1 


HERE  THE  USER  CAN  ENTER  HIS  SET  OF  POINTS  3Y  USING  A  SUBROUTINE  THAT  CONTAINS, 
THE  EQUATION  THAT  0  E°INES  HIS  CONTOUR  IN  THE  W2,W1  °IANE. 


250  PRINT  25  P 

260  FORMAT  </,4X,54HIF  YOU  RAVE  A  CASE  NUMBER  ENTER  Ift  OTHERWISE  ENT 
1ER  D.,/i 


READ*,NCASE 

CALL  Y0URS'JB(NCASF,NP0INTS,W2,W1) 


r  ~  r  r  ww«wMnM!W>jiT~t~r 


'  -  T-jWi ',^/V. 


( 


c 

c 

c 

c 

c 


( 


£ 

1  c 

I 

I 


£ 


C 

1 


c 

c 

c 

c 

c 

c 


If" 


\ 

c 


{ 


( 


C 


C 


C 


C 

( 


c 

c 

('.  C 

c 


THE  UPPER  LEFT  SECT  Tn  N  OF  THE  A  ARMY  IS  FILLED  USING  EQJATIONS  OF  THE  FORM 

NPCINTS 

A(KAPjKAC)  =  A(KAO,K^O)  =  SUM:  G  (W2  ,  Wi  )*S  <  W  2  ,  Ml  >. 

1*i  =  l  KAD  1H  IM  KAC  IM  IM 


273 


275 


DO  2 r  5  L  N= 
G(1,LN>  = 
G(?,LN>  = 
G(3fLM)  = 
G(+,LN)  = 

I F(  NYDPT2 
G(',LN)  = 
G(6,L'n  = 
o  (5  ,  L  N )  = 

G (3  »  L  N )  = 
GO,LN)  = 
CONTINUE 


1,N POINTS 

1.  a 

nrs  (mi  <ln  )*pij 

r,(  $  <W2(LH)*PI) 

G(2  »lN)  *  G  ( 3 ,  L N) 

.  4)  GC  TO  275 

rn«?{Wl(uN)  *2  *  PI) 
0"'  S  (M ?  f L N  )  *2  *  PI) 
G(2,LN)  *  G  ( 3  >  L  N ) 
G(T,LN)  *  G(3,LN) 
Gf7,LN)  *  G(8,LN> 


00  3.  C<  YADsi,  MY  OPT  2 

00  203  <<AC  =  K A3  ,MYO  3T2 
A  (KAS^AC)  =  i  ,T 

nr  23  3  Tm=i,npoINTS 

A  •  <  AR  ,  KA  C  )  =  A(KAB,<AC)  +  G  (  KAO,  I  M)  11  3<KAC,IM) 
28 0  CONTINUE 

\  (X’AO  =  A  C<Ae,KAC) 

29  3  CONTINUE 

30  U  CONTINUE 


THE  UPPER  SECTION  OF  the  9  ARRAY  IS  FILLED  USING  EQUATIONS  OF  THE  FORMS 
iPOTNTS 

3  (LAM)  =  SUMS  COS  ( W)  *  G  (N2  ,W1  ). 

L  A8= 1  LAM  IM  IM 


310 

32U 


00  32P  LA Msj ,  MYQPT2 
8  (LAM)  =  C, 

OO  310  L A3=i,N  POINTS 
8 (LAM)  =  3 ( L A M )  +  COSW  *  G(LAM,LAB) 
OONTTN'iF 
CONTINUE 


THE  MATRIX  EQUATION  '  =  A*CU  FVFIT  IS  SOL  VEO  FOR  THE  CURV^IT  ARRAY. 

NEO  =  MY  OPT  2  4-  NEON 

CALL  LINFO(  A,3,  CRVFir,  N  EO) 

IF(NEO  •  GT •  0)  GC  TO  36? 

PRINT  32 F 

325  FORMAT  ( / ,  AX,  6  7MTHE  MATRIX  EQUATION  DOES  NOT  HAVE  A  JNIQUE  SOLUTI 
ION  WITH  THE  SET  r,F ,  / ,  4X ,  69HP0INTS  CHOSEN.  ENTER  1  TO  START  OVER  0 
2 R  C  TC  TERMINATE  THIS  PROGRAM.,/) 

READ* ,MY  OPT  9 


IF(*Y0PT9 

D 

GO  TO 

10 

GO  TO  450 

330  IF(MYO PT  2 

•  £0. 

4) 

PRINT 

340 

340  FORMAT  (/  ,4X,^fHTHE  APPROXIMATING  FUNCTION  HAS  THE  FORMS  ,  f  ,4X, 

1  57H=(W2,Wl)  :  A  +  3*  COS ( Wl )  +  C*C0S(W2)  ♦  D*COS<Wt) *C0S(W2) . 

2  ,/,  ltX,tSW5*TER  A  THROUGH  □  .,/> 

I F  ( M  Y  0  PT  2  .EC.  9)  PRINT  350 

350  FORMA"  (/  ,4X,4  MTHE  APPROXIMATING  FUNCTION  HAS  THE  rORM I , 7, 4X , 

1  5eH=(W?,Wl)  r  A  ♦  3*  COS ( Wl )  +  C*C0S(W?)  +  D»C0S(Wt)*C0S<W2)  * 

2  , /,4X,67HE*C0-  (Wl)  *OOS(2W2)  +  F*C  OS  (  2W1 )  *G0S  ( W2>  ♦  S»C0S(2W1)  + 

3  H*COS(2K2)  +,/,  X,4f)HI*C0S(2Wl)*C0S  (2M2)  .  ENTER  A  THROUGH  I.,/) 
READ*  ,  (C’JRVFIT  (TOUR)  ,IC  LR=l,KYOPT2) 

ONCE  THE  APPROXIMATING  CONST  ANTS  ARE  FOUND,  THE  HCOLEL. AN  TRANSFORMATION 
IS  EVALUATED  ON  A  441  POINT  GRID  IN  THE  W2,Wi  PLANE  TO  SEE  IF  THE  MAPPING 
FROM  THE  W-AXIS  TD  T-'E  W2,W1  PLANE  WILL  9E  WELL-DEFINED. 


c 


i 

l 

1 


f 

V 


( 

1 

i 


c 

V 


1  c 


360 


21 


1 

2 


DO  300  L  Z= 1 . 

L C=  2?.-’  L7 

wa  =  *  n  c-i)  ni . 

DO  3M  LW=1,21 
LD  s 

MB*  °  I  *  (LD-  D/26. 

1.  F{  MY  Q5  T2  .£0.  k)  CHECK  =  CURVFIT(l)  + 

3UPVFIT  (  2)‘COS  (WA)  <■  CUr-VFIT(3)«C0S(WB)  «■ 

DUR^ir  ( 4)  K  COS  <WA)*C0S(W3) 

I  F(  MY  CrT  2  .  EO,  9)  CHECK  =  CURVFIT-1)  + 

C  URVFIT  (  2)  *C0S  <WA)  +  CURV FIT  (3)*COS(W3)  * 

3UR7Fir  (4)*CDS  (WA)*C0S(W8)  +  CURV  FIT(  5  )  *  CD  S  (  H  A  )  * 

C  OS  ( 2*  ■*  3  )  +  CURV  FIT  (f  )  *  COS  (2*WA)*CQS(W3)  f  CURVFIT<7) 
►COS(??MA)  +  CUPVFIT  (8)*C0S(2*WR)  ♦  CURVFITO) 

*C0S(  2’WA)  *CDS  (2*WB) 
t  F  ( A9  S(  C  HECK)  ,GT.  1)  GC  TO  390 
CONTINUE 
r  ONT  l  N  UE 
GO  TO  455 
39  0  PRINT  4CP 

403  FORMAT  </ ,  4X,  ftbUYOUR  CONTOUR  WITH  YOUR  FREQUENCY  PRODUCES  AN  ILL- 
10EFINF.D  HA  °PING , /, 4X , 5?H  FROM  THE  W-AXIS  TO  THE  W2,W1  3LANE»  ENTER 
2  ON:  OF  THE  rQL LOWING , / , 4X , 13HOPT I  ON  NUMBERS »,/» 6X, 


1 

2 

3 

4 

5 


37  0 
360 


3 

4 

5 
5 
7 


49H1 ) 
36H2) 
Ef  H3 ) 
i  3H4  ) 
25H?>) 


CHOOSE  n  ICFERE  NT  PROGRAM  GENERATED  CONSTRAINTS,/,'./, 
ENTER  YOUR  OWN  CONSTRAINT  EQUATIONS, /, 6X, 

ENTER  t  SET  QF  APPROXIMATING  FUNCTION  CONS \ A  NT S , /, S X , 
START  •"'VFRjEX,  l‘»HE)  TRY  SCALING, 5X, 

TERMINATE  THIS  PROGRAM,  /) 


KEAD-*  ,  MY  OPT  7 

I F ( M  Y U PT  7  ,EO. 

D 

GO 

TO 

E'» 

I F  { M  Y  G  PT  7 

.  EQ. 

?' 

GO 

TO 

11G 

IFCHYOPT  ? 

.  ED, 

3) 

GO 

TO 

33( 

I  f  (  v,  y  G  PT  7 

•  E'** 

U) 

GO 

TO 

10 

IF(MYOPT7 

*  EQ, 

31 

CO 

TO 

AV; 

C 

C 

C 


IF  THE  MAPPING 
WISH  TO  USE  THE 


C 

c 


THE  VALUE  Or 


FROM 
SO  A  L 
T  IE 

cr- 


-H  ? 
THE  IJ 


HE  W-AXIS  TO  THE  W2,KI  PLANE 
NG  ROUTINE,  IT  WILL  USUALLY 
SCALE  n  FREQUENCY  MAY  NOT  EQJAL 
ORIGINAL  FREQUENCY. 


IS  ILL-DEFINED,  THE  USER 
PRODUCE  A  WELl-DEFINED 

{OR  EVEN  3c  CLOSE  TO) 


$ 


FMAX  =  -1.CE+1T 
FH1 N  =  l.-E+n 
NTRY  a  ICt 
NK  =  10:- 

CO  4 S  R  i  =  i,i 
DO  4  2 


410 


418 


420 

430 


r 

-i 


7  RY 

J  =1 ,  NTR  v 

I  F( MY  0-  T  2  .NE.  4)  GO  TO  410 

S  =  CUFVFIT(l)  +  Cl'.PVFIT(2)*COS(PI*(I-i)/N<>  ♦ 
CURVFTM  3)-‘COS  (PI»  (J-D/NK)  +  CURV  FIT  ( 4)  * 

COS  (PI  (I-l)/NK)^COS(PIK  (J-D/NK) 

3  0  ro  -18 

S  =  CirwFIT(i)  +  CURV  FIT  (2)+COS(PI*(I-i)/N<l  * 
CURVFI  (  3)  *C0S  (PI*-  (J-D/NK)  +  CURVFIT(4)* 

COS(°X  ( I-D/N  K)*COS  tEP  (J-i) /NK)  +  CURVFIKS) 
»C0S(°  l*  (T -1)  /  NK)  *  CO S(Z*PI*(  J-D/NK)  + 

CURVFT-  (g;  *  COS  (1-1 ) /NK)  *COS  (PI11  (J-D/NK)  + 

CURVFIT  (?)  *C0S  <2*PIMI-1> /NK)  +  CURVFJ.TUD 
C  OS  ( 2*PI  *  ( J-l )  /NK)  +  CURVFIT(9)*COS(2*PIMI-i)/NK)* 
COS  (2*PI4(  »-l)  /NK) 

FM6X  =  SKXKF  f-AX,S) 

FMIN  =  A M I N i { f  N I N , S ) 

CONTTNI  E 
CONTI  V  UF 

Cl  =  2,/  (FMAX-F M'  N) 

C2  =  CD  FM A  X  -  1. “ 


CURVFIT(l)  =  01“rURVFIT(  j)  -  C2 
CURVFIT  (  2)  =  Ci^OR'/FIT  (  2) 

CUFV F1T(  ?)  =  Ci*rupyexT(  ?) 
CUPVFITt  t)  =  Cl'rUR V  ‘IK  -'<) 
IFC-iYOPr?  .  FO.  GO  r0  AM 


CURV FIT ( r )  =  -U'niRVFiTt  B) 

CUP V  r  a  T  {  6 )  =  C 1  ”  r  0 R'/FI T  (  f ) 

CUPVF3T(7)  -  Cl*rUR-/FIT  (  *») 

CURVFIT(P)  s  C1*'oirvc‘TT  (  g) 

CURVFIT (  9)  =  Cl*~UFV(rTT  <  9) 

40.3  W;  =  AT3?c  1*00^'«-'  -  C?)/PI 

F  =  US 

PRI  U  1-5  1,4  5 

453  FOE '-'AT  (/,  r,.Y,4  7UYCUR  ORIGINAL  FREQUENCY  HAS  SEEN  SCA-EO  TO  , 

1  F9.5,i5H=t.  THF  SSA  LPr,/,AX,i!iHFKEOUPNCV  HILL  3E  CAPPED  TO  YD 

2  UR  ''ONTDU'.  ,//,  4^  ,  A-’HFnit  C'NL  OF  THE  FOLLOWING  OPTION  NUMBERS. 

T  ,/,f*fl.*Ht)  SMRT  DVE  F,EX,2CH2)  TERMINATE  THIS  PROGRAM,  5  X , 

4  li-«3)  TOM'  =INir,/) 

READ*  ,M/Oar  IT 

IF(wYCPr  lv.EO,  1  I  GO  TO  J1 
IF(«YC’Pri  .50.  ?'  GO  TO  4Gv 

4 r/s  ifhyopt?  .n.  m  n  ar? 

HERE  1H-  MCCLELLAN  T' ANS^OR^  fiTiON  IN  THE  FORM  OF  M J  LT x 3 L :  ANGLE  COSINE 
FUNCTIONS  15  CONVERTED  to  the  MCCLELLAN  TRANSFORMATION  IN  THE  FO^M  OF 
SINGLE  ANGLE  TO  ST NT  " U  NC T 1 0  N  S  RAISED  TO  THE  ZERO,  FIRST,  AND  SECOND  POWERS. 

MCT  R  A  Mi  ,  1 )  =  CO" VFJT ( i ) 

MCT  R  A  N  ( 2 , 1  >  =  O'F  VFI  T  (?) 

MCT  R  A  N  (1 , 2 )  =  C  0" V  FT  T  ( 3  ) 

HCTRAN  (2 , 2)  =  0 M ~  V  FT T  ( 4 > 

OURVFIT(F)  =  ■?. 

CURVFIT(P)  =  1. 

CURVFIT ( ? )  =  1. 

C'JRVFTT(ft)  = 

CUP  '/fj  T(  9)  =  1. 

GO  TO  A? 6 

457  MCT  R  A  N  (1,1)  =  C»rVFTT(l)  -  CURVFI7(7)  -  CURVFIT  <  d)  <•  0URVFIT(9) 

MCT- AN  (2,1)  =  ON'  VFIT  (2)  -  CURVFIT (5) 

MCTRAN  (1,2)  =  O'JRVFIT(T)  -  CURVFIT  (G  ) 

MCT ?AN  (2,2)  =  CD  VFJT  (4) 

HCTRAN  (2,  ■)  =  0  HR'/FIT  (*> )  «■  2 
HCTRAN  (0,2)  =  COrVFJT(5)  *  2 

MCTRAN  (T,i)  =  CirVFirm  *  z  -  CUPVFIT<9>  *  2 
MCTRAN  (1,3)  =  CtrVFTT(R)  *  2  -  CURVFIT(S)  *  2 
HCTRAN  (3,3)  =  OIL  VFITO)  *  A 


0  U'-VFIT(i) 
CO'  V FI T  (2) 
C'JR  V  FT  T  (  T) 
CO  V  FI  T  (4) 

0  OR  VFJT  ( f> ) 

C  Or  V  FI  T  ( 5  ) 
CO"  VFI"  (7) 
CO’  VFJT  (A) 
CO'  V FI T  (9  ) 


CURVFIT  (7  )  -  CURVFIT  (  d) 
CURVFIT (5) 

CURVFIT  ( G  ) 


CUPVFIT (9) 
CURVFIT (8) 


CURVFIT (9) 


PROGRAM  OUTPUT 

SEC 

T  T'> 

N 

453  1 F ( M  Y 0 PT  2 

.  FO. 

4  ' 

PRINT 

470 , 

I F  ( M  Y  0  PT  2 

,  EC. 

/•’ 

WRITE 

(  1,W5) 

IF(MYCPT  2 

.  EC, 

G 

PRINT 

A3  !>, 

IF  (MYOPE  ? 

.  EO, 

9 

WRITE ( 1,475) 

IF(MYOPT  3 

.  EO, 

1' 

GO  TO 

40  C 

DO  4-;  3  L  1 1 

=1,  n: 

:on 

I  F(  MY  DPT  2 

• "  . 

4) 

P  PINT 

I F( HYD  FT 2 

;rO. 

4) 

WRITE  (1 

I  F(  MY  D  PT  2 

,FO. 

9) 

"PINT 

1F(  MYO  PT? 

.  --0  . 

9) 

WSITE(1 

CONTINUE 

(CUR  VFIT ( Jo) , J6=l , N Y  OPT  2 ) 
(CURVFIT  (  J6),  J6=i, MY  DPT  2) 
(CURVFIT ( JS) ,J8=1,NY3PT2) 
( C U R VF I T ( J 9 ) ,J9=i,  NTDPT 2) 

49v,  (  0  (L  li,  H  i  1) ,  M  11  =  i  ,  5) 
,494)  (D(Lal,MH),Hll  =  l,5) 

5LC  ,  (0  (L  11, Mil),  M  11  =  1, iO) 

1  n  /  1  J  j  11  J  j  t  .  i  J  t  _  »  j  M  t 


PRINT  510,- 


WRITE 


510)  f 


!  CONTINUE 
5  FORMAT  (//  ,1X 
i ON  WITH  CONSTRA 
22,  Wi)  =  A  +  P'C 


,'KiHO,/  ,  1 IX ,  51HL I  NEAR  LEAST  SQUARES  APPRDXIMATZ 
DTS,//  ,  1 X ,  7 1 HT  H  r  APPROXIMATION  HAS  HE  FORM*  F(W 
O'-fN])  +  C¥CCS  ( W2)  +  ,/  ,1X,22HD*C0S(W1)*C0S(W2)  WI 


ooo  o  o  o  o  c  o  oooooooooooo 


37H,/  ,4*,<HA  =  Ii'i^m  3X  ,4HP  =  ,  F  j  0  .  5  ,  3  X  ,4  H  C~  =  ,  FI*}  i  ! ,  3X  ,4H0  =  , 

-  FJ,.S//,^X,?O^>1<:7B0:nt  fcOUATIONS,/, 26X,  23 (1H-)  > 

46)  FORMAT  <//  *IX,*1  (!M»)  ,  /  ,  liX,  SIHLINEAR  LEAST  SOUSES  A  PPRDX  1 MATT 
10U  WITH  C.tMSr^AT-  TS,//  ,  1v,/lH7Ht  APPROXIMATION  HAS  THE  FORM?  P(W 
22, Hi)  =  A  +  «>*CO:(kl)  +  r*CuS(  W2)  +  ,/»lX,6i.Hr>'C0S(Wl>*S0S(W2>  +  L 
3  COS  (  Wl  )>  COR  (?••»’  )  +  e*33S  PWt)»COS(W2>  +,/  ,  IX,  j  -  Ho*  C  33  (  2Wi  )  +  H-CC 
LS<2W2)  +  T  *  CIS  (  2’-'t  ) *  0  nS (  e'42)  WITH,/  ,.,X,4HA  =  ,  ^  1?  .  ?  ,  3  X,  A  HB  =  , 

A  r  it  ,jt^  ,M0  =  ,C1  .p,3X,4Ht  =  ,4X,4HE  =  ,F19.5,3X, 

3  LHF  =  f  FI  :.E,3X, '-HG  -  ,  Fi:  ,  3 , 3X  ,  4  HW  =  ,F1C,S,/  ,  4  X  ,  +  HI  =  , 

?  Fi  i  ,  f  j  /  />  2SX.  2<IHCDNS  Vir,i  NT  EOUAT  IONS ,  /  ,  26X,  2  j  (1H-) ) 

49'.'  cO- M AT  (  j  ,X  ,r~,  ?. 


1  3H 

=  ,r?.2,A>'A 

+  ,  F  *'  ♦  •? , 1  H  6  + 

,FF  ,  2,  HC 

+  ,-E.2,lH0,/) 

5\  .1  cOR-vAT 

(1  *,*>•*>, 

1  3H 

+  , rS  ,2, AHB  + 

,F5.2, AHC 

+  ,rS.2,!tH0  +  ,F3.2, 

2  ,3  nr 

+  ,  /  ,  1 3  X  ,  ‘  B 

#2  ,  NHr  +  ,  Fi/  .  2 , 

4HG  +  ,Fp. 

2 ,4HH  +  , -3.2,191, /) 

5lT  FOr.^AT  (LX»“THTU-  1-9  FREQUENCY  THAT  HAPS  TO  THE  USERS  2-0  CONTOU 
IF  =  ,lX,7t(lHM) 

END 

C 

C  . 

SUPPOUT1N.-  LIME9(A,P,X,N  ) 

THIS  SUa  ROUT  INE  SOLVES  U=  TO  It  SIMULTANEOUS  LINEAR  ALSEFRA1C 
EQUATIONS  SAU^S-  P°CAM  EL  TMi NAT  1  ON 

THE  CALLING  PROGRAM  MJST  SPECIFY  THE  FOLLOWING: 

THf.  COEF  FTC  IeNT  ''4T">TX  (A) 

THE  FI3HT-HAWH  VC  TO  2  (N  ) 

THE  NUMBER  0c  TO"  ATI  OWS  <N) 

THE  SUR'OUHN-  WILL  '"TURN  THE  SOLUTION  VECTOR  (X)  TO  THE  CALLING 
PROGRAM 

niH-hiilOW  A  (13,  i')  ,5(13)  jX  ( 1 8 ) 

THE  FOLLOWING  0  0  L 9 REFERS  TO  EACH  OF  THE  FIRST  N  COLUMNS 
00  4  1=1,  N 

THE  FOLLOWING  00  L00r  REC~RS  T0  EACH  ROW  PER  COLUMN  EXCEPT  THE  PIVOT 
ROW 

00  2  x=j  ,.N 

I F  ( x  .  E9  «  I)  GO  0  2 
;  F  ( A  ( I  j  I )  •  EO.  r'  GO  TO  6 
CONST  =  -A(X,I)  r  (1,1) 

THE  FOLLOWING  00  L  0  O'  R£e!rRS  T0  EACH  ELEMENT  IN  A  ROW 
DO  i  J=i  ,N 

A  (X,  J )  =  A  (  X,  J)  ‘  CONST  *  A  (I,  J) 

I F  (  j  .£0.  T  )  A  (  K,  -J  )  =  r. 

1  CONTINUE 

B  (X)  =  B  (X)  +■  CO*  ST  *  p  (  I) 

2  CONTINUE 
CONST  =  A ( T , I ) 

THE  FOLLOWING  OO  uOr  RrccES  To  EACH  ELEMENT  IN  THE  PIVOT  ROW 
00  2  J=i ,N 

3  A  (I,  J)  -  A  ( I,  ))  /~QNST 
Ad, I)  =  1. 

B  (I )  =  =»  (I)  /CONST 

4  CONTINUE 
OBTAIN  SOLUTION  VECT’R 

00  v  1=1  , N 

5  X(I)  =  MI) 

6  IF(A  (1,1)  ♦  EO.  \  )  N  =  -3 
RETURN 
E  HO 


OVERLA  Y( MCL 


o  o  o  oooo  o  o  o  o  ooooooo  oooooo  n  oooooo 


Q  *****-‘»  ^  **•***■!■*•****  •»  .ITi  *  *  WW  VTJ  jTiT»^"»VVVV  ***.,, »*’*.*.»,  »  &  *  j>4  * 

PROGRAM  GPS  PM 

THIS  P'.:,GP£«  >9(iVir'  TM--  DATA  NECESSARY  FOG  THE  CALCOMP  PLOTTED  TO  PLOT 
THE  OH  -  -  nI  M  Nr  I  QNA  L  *  '  GNIT'JUE  vrr-st’S  FREQUENCY  (W)  CURVE,  THE  T  O  - 
DIMENSIONAL  C  3N  TOUR  '  •  J  RV/  -  3  >  AND  THE  1  W0-01HENS I OHA.  MAGNITUDE  7:?SUS 
FREOUL^'Y  (4  2,  Wi)  t  ^££-01'-' -  SIGNAL  FIGURE. 

COM"  OS  /AS  A/UO'-Hpn  /R eR/CUPVFI7  /CCG/MYOPT3  /ONF/NFILT 

DIM-N'IDN  C(FV'dr  (1-0  ,  HfOGP(lt2>,  VCOOR(I02),  HiQ0HE3(57) 

TH  ”  Pit  ST  NIK.  EL  EH  r‘  TS  Oc  CtjPVFIT  ST  GRC  THE  NINE  CONSTANTS  OF  THE 
APPROXIMATING  RJNCTT'N.  THE  PJ^ST  1  '  LOCATIONS  Or  HCOOt  AND  VCOOF  STORE 
THE  HORIZONTAL  AXIS  /'NO  VCRT  TCAL  AXIS  COORDINATES  OP  THE  3 01  NT S  TO  PE 
PLOTTED.  HI  C^h P‘3  IS  Olf'c.iSI  CNF?  (  ( NFKA X -1)  / 2+1 )  . 

PI  =  3,1  A  iPOgf  q  t-  aqA 

THE  USt-  CAN  CHOOSc:  “0  HAV"  TABULAR  DATA  (UP  TO  i’i  POINTS)  FOR  ANY  CONTONR  T 
THE  FIR' T  QJATRAM-  Or  7H“  W?  ,W1  PLANE  PRINTED  ON  HIS  HARDCD3Y  OUTPUT  FILE 
(RESULT).  5LL  CONTf"os  ARP  POUF  QUADRANT  SYMMETRIC .  THE  PROGRAM  MAY  G  FM  E'R  AT 
INVALID  POINTS,  ALL  INVALID  =01  NTS  HAVE  THE  COORDINATES  (-.15, -.25)  AND 
SHO'JLO  BE  OI$~cGARnr-  qy  THf  USER. 


PRINT  i< 

IE  FORMAT  (  / ,  AX,  S'*  DO  YOU  MSN  TO  HAVE  TABULAR  DATA  FOR  ANY  CONTOURS 
1  IN  THE  FIRST  ,/  ,  t  X ,  5  8  HQIJA  OR  A  NT  OF  TH  c.  W2,W1  =>lANE  3RIN7ED  OUT  0 
2 N  YOUR  HARDCOPY  '  UTPUT  FILE  ,/  , AX , DH( RESULT) ?, /) 

READ*  ,  MY  C3T  2" 

I F ( M Y 0 Pf  2  .NE,  M  SO  TO  GO 

CURV  FIT  ( 1 .  )  =  t.n  T-'LS  TNR  F-Sr  OF  THE  PROGRAM  THAT  TASJLAR  DATA  IS 
TO  BE  r,F_N£P.ATED  AND  OT  310TS. 


CUi  V F I T (  1  )  =  1. 

IE  PRINT  2' 

20  FORMAT  (/,  fcX,  El ’’ENTER  **»  (r,w  TO  l.C)  OR  FNTER  2  TO  CONTINUE  WITH 
1THF  P(  OS  PAM  ,,/) 

READ* ,  F0F1 

I  F  ( PO  FT  .ED.  2)  GO  10  53 

1P(P0PT  .LT.  "  ,PP,  PDPT  , GT •  1)  GO  TO  15 
COSWOPT  =  COS(DI  4  FOOT) 

PRINT  3r 

30  FOR w  AT  (/  ,4X,-*'HH0W  MANY  FOi  NTS  00  YOU  WANT  OUTPUT?  , /) 

R£An»  ,  MY  OPT?? 

I  F(  MYCPT  22  .GT,  "12)  MY  0  FT  22  =  Ilf 

SUBROUTINE  FOR  OFF  OR  SDORDER  GENERATE  THE  MYOPT-22  =>OINTS  TO  9E 
OUTPUT  TO  THE  FILE  RESULT. 

IF  ( MY031 ?  .ED.  f  )  CALL  FORGER ( MY OPT  22  HCOOR,  VCOOR,  C JRVFI f , 

1  C.OiW03T) 

I  F(  M  YOpr  2  .ED,  ?'  CAL!  c  CORDER  ( MY  OPT  22,  HCOOR,  VCOOR,  C'JRVFIT, 

1  COS  WO  3  T) 


HERE  THE  POINTS  ARE  OUTPUT  TC  THE  FILE  RESULT. 

WRITE  <  1,  01)  PDPT 
PRINT  lljFOPT 

41  FORMAT  ( /  / ,  1 X  ,  A  •'  p  OR  W  =  ,F7.4,14HPI,  (W2,Wi)  =  !  ) 
LS2  -  1 
LE2  =  14 

46  1F(MY0PT  22  .LS.  I  E  .2)  Le2  =  MY0PT22 
WRIT E(l,  £1)  (HCO-ip  (NO)  , N  F=L 5  2,L  £2) 


i 

< 


*,***■«•' 


o  o  o  o  o  o 


print  ^  i ,  (i,cov  ('  i<) 

NR]  T  E  <  1,  r  O  (  10)  ,  V  r=LS2,  L  h  2 ) 

PR  ]  U  f  :  ,  (VHP  (',ri),'n  =  l  R’,L£:2) 


c 

c 

c 

c 


I F  ( 

NYC  Pi 

2c 

.NE.  ' 

"2) 

NRT 

TUI  , 

7  ) 

I  F  ( 

XYC 

D-' 

2? 

.NE.  . 

-2) 

PRT 

h~ 

f  1 

51 

FO* 

MAT 

(,< 

,  iHW^ 

• 

,  1A.  ( 

FT. 

L  1 

2X) ) 

56 

F0- 

M  A* 

Civ 

,  rHNj 

« 

,  lb  ( 

FU 

A ,2>)  ) 

57 

FQC. 

- A  T 

(?X 

,  u 

LS? 

= 

L? 

2  + 

1  L 

LE2 

= 

LE 

2  + 

l’*- 

I F  ( 

r  c 

w  v  < 

♦ 

Li. 

aYD 

2  2) 

r-D 

TO 

‘L 

GO 

ro 

a  r. 

X  . 

55 

WRIT  f 

(1 

I  a- 

) 

\*  T 

‘  5 

56 

FOR 

*  *£ 1 

(7 

f  ‘  Y 

(AH' 

POINTS 

WJT  H 

CuO 

1 

H 

AN 

0  S HOUL  D 

RE 

US'-5 

EGA 

*  D 

c  r )  •• 

THE 

us= 

L 

AN 

CHOOSE  T 

o  G 

E  l  ED 

ATE 

1 

>»E  Pi 

MAGN 

IT  L'o  E 

VE 

(  VJS  -i.r 

t'EUOY  ( 

1-) 

cu 

<VL 

bi¬ 

PRi 

NT 

7 

rr 

FOP 

•'AT 

(/ 

,  A  X  ,  o 

HOO 

YQH 

1U  i 

c 

c 

c 

c 

c 

c 

c 

c 


IP  PLOTTER’,  /) 

REA?*  ,  MYGwr  2? 

IP(wYOPr23  .Ml.  4 )  GO  TO  U 

CURVFIT(i')  =  2."  Tc‘'.lf  THE  UST  OF  THE  PROGRAM  THU  PlDIs  ARE  TD 
BE  G  EN£r>  AT  £0  '.NO  NOT  TABULAR  DATA, 

CUfUFlTd  )=■>,' 

THE  PROGRAM  PLOTS  NC~S  "OHALLY  SPACED  POINTS  FOR  THE  ONE -DIMENSIONS  L  X  A  S  N  T  T  UD 
VERSUS  FkEOJFNDY  (  N )  OIPVE. 

HP'i:  =  1L 
NIHTVL  =  NR 

XO  =  (  (NFTLT-D/2  )  +  1 

THE  OWc-DI^ROJOHAL  '  AG’IUUOE  FCR  EACH  W  IS  CALCULATED  JSING  THE  FOLIATION 
<  J 

MAS  (  H  (W )  )  r  SUM!  HIOOHEKJ)  (OOSW)  . 

J=" 


DO  O’  MA  =  t,'‘°T3 
W  =  PI  8  (M'-i)  /NIN'TVL 
BCD  OR  (HA)  =  OAU 
VCDOR.  (MM  -  HinOHEP  (1) 

DO  SO  ‘  o=2,  Kn 

PROD  =  HinOHEO(MB)  *  (COS(N)  **  (MB-1>) 

V  COOR  (*■  A  )  =  VC  COMMA)  +  PROD 
80  DONTIM'E 

90  P OVUM  ll* 

C 

C  THESE  SUBFOJTTNE  CAL'  S  TO  THE  C/-LCOMP  PLOTTER  GENERATE  THE  PLOT. 

C 

HCODR  ( 1‘.  1)  =  W  ■■ 

HCOOPUL-2)  =  .IE 
VCODRdll)  = 

VC0DR(l'j2)  =  ,  2r 
CALL  FIOTU  .0,-h(l,-3) 

CALL  PLOT  (  0  .0,  1  .?5t-T) 

CALL  AXiS(fl.,l.  3HW-AXIS  «v  PI ) , -13 ,7.  ,  0.  ,  HCODR  (10  i )  ,  H300R  ( 102  ) ) 

CALL  AXIS((J»,9.n,  28HFREO  UENC'Y  RESPONSE  MAGNITUDE  ,28,  T  ,t  3D 
i  VDOOR  (1U  )  ,VOOOP.(l  n2)  )  ft 

CALL  LINE(HCOOR,VCOOR,.1‘' 9,l?n,D  1 

CALL  SYMBOL  (.  IFF, T.S  21 ,32HONE -DIMENSIONAL  PROTOTYPE  FILTER*  L«,  I 

. - — ' n  mu  ■"!  ..wm III—  ii  ■  ■.  ■  i  .  n  i  i  i  imssamaca  p? 


1 


( 

c 

( 


0 


c 

c 

c 

c 


c 

c 

c 

c 


2  2) 

GALL  FL3T(3  «r  ,U< 


c 

1 

I 

c 

( 

c 

f 

r 


THE  Pi'GGF(M  PLOTS  11 

T  wo  -  01  •*) 

FROM  •>.’ 

10  1 ,  r’  WITH 

A  .1  IN 

HC'<\>T 

=  li 

NCT5.  VL  =  !  * 

THES  £  S'J 15  *■  f'J  T  !  \'f'  CAL' 

S  TO  T u 

FORD"1?  0 c 

SO  c-  OFF  s  Ci1 

E  RA  T  £  - 

MPOPTE?  =  ICO 

CAL'. 

r  LOT  (  T  / 

*’  »-3) 

CALL 

FL0T(  o 

»-?> 

VI :  L 

Axisni  .r,  i . 

", j UHN? 

'  AL. 

A  XT  5  ( !'  .0.  1  . 

CALL 

SYMBOL  (1.  t 

7 , ,  2i 

no  1  0  '  1 N  =  1  f 

’!  COM  T 

r  os  wo  3T  -  pf 

SrT  * 

IF  (MY  0DT2  . 

FP,  ’) 

1 

,  COSWOPT) 

I F  (  HY  0  PT  2  .  rr>  .  9 )  r 

1 

, COSMO  PT) 

1C  » 

CONTINUE 

CALL 

PLOT  ( 10.  0,  " 

1,-3) 

CALL 

PLOT  -  <  N) 

11 i  CONI  I 

NUE 

1?) 


(MN-1)  /NGTIVL) 


C 

C 

C 

C 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IN  T  Hi  1  srcnovj  THE  '  A  TA  NECESSITY  FOP  A  DISSPLA  *1- r  DLD1  OF  ~H? 
MAGNITUDE  Or  HE  2-"»  ,rRI^'IFNCv  RcSPONSE  TS  PUT  ON  T  A  PE  2. 

-  ( ( v) f i i  -  ii/2  t  i) 
pot  mt  Z'  r 

27  T  FOp*"A1  (//,tfXo‘,lTO  YOU  WANT  TO  GREAT  E  A  DTS3pLA  3-D  P.DT  OF  THE  FR 
iEOUENCY  F  £  3  PO  T  3  ^ ,  /i 
FEAT*  ,MYGori 

J  F(  ‘•'YG0"  1 .  W  Ft  i)  'n  TQ  71  n 
WRIT £(2,2/ 5 )  <0 
273  FORMAT  (T  3) 

WRITE<2,  ?o*  )  (  Cr  VFITr-T  > ,  M -•  =1,9) 

263  FORMAT  (  ?  ;  1 A  .  3  ,  /,  AE1 3  . 1) 

WRUc  (2,  290)  (Ml  <v  HEO(HT)  ,MT -  l ,  KfJ) 

293  FORMAT (3 f  /  E1A,  0  ,  /)  ) 
ppr^T  3 1  f> 

303  FOF«AT  </,csX  ,599  (  HF  TATA  RE  GUI!-  ED  FOR  THE  DISS=LA  P.DT  IS  NOW  ON  T 

i  t?<-2)  f/n 

310  CONTINUE 
END 

SUP^OUTI N£  FORD  ^  ’  ( MYOPT2  2 • HO  OOF  ,  VCOOR  ,C UF  VF I T,  3  OSWOPT ) 

THIS  SUBROUTINE  CAL  CRATES  IF"  POINTS  THAT  ARE  OUTFIT  TO  FILE  RESULT  OR 
PLOTTED  AS  T  WO-DI  MEN'  I  ON  AL  CCNTOURS  IF  THE  FIRST  ORDER  MDCLELLAV 
TRANSFORMATION  1 5'  US'D. 

MYOPT22  -  TH-  NU'9En  OF  POINTS  TO  3E  OUTPUT  OR  PLOTTED 
HCOOR  ANO  VCOlR  -  STORE  THE  HORIZONTAL  AXIS  AND  VERTICAL  AXIS 
COOPDI  NATES  OF  THE  POINTS’  TO  PE  OUTPUT  OR  PLOTTED 
CURVFIT  -  THE  FI- ST  cOJR  LOCATIONS  STORE  THE  FOUR  TERMS  OF  THE 
APPROXIMATING  FUNCTION 

COSWOPT  -  THF  OfJF-OIMENS  IONAL  FREOUEN'JY  (W)  TO  BE  MA^ED  TO  A 
TWO-DIMENSION  A.  CONTOUR 

DIMENSION  HCOOR  (1  02)  ,  VCC0P(1C2>,  CURVFIT  (18> ,  I NK  ( 1 D  3  ) 


wwnw*  » ■ 


DA  L  CNif-VL 

pi  =  3.5  ‘  '  9fi 

no  t  vjp=2,r ' 

I NK  (*'!"’)  =  0 

po°’  =  \c  :*s  (cis  u  PT5  '~>r 

MPC-T1  =  '1 

h  Dnr  r  ?  =  -0  r 


for  any  w,  ip-:  l  5  pc  - ~  *r  ••'  n  stalled  valid  W2  is  found  py  evaluating  ih; 

FI  R5  T  OSOlR  PC  C  LrLL  V  Tr  A  NSP  .*  FA  '1  j  ON  c  O'lATT  Q.J,  SOLV-D  p3?  wi,  AT  PA  NY 
EOUALLV  SFACtO  VA L'l"r  (T  >12 

H2?l  =  3I 
'<123  VP  =  f.’1 

no  i  1=1 ,  m-  opri 

W?  =  ’X  *  C  ”1 .  ■1 )  /  '<1  cOFT 2 

1F(  (  rJPVFTTf  ?) +CURV  CIT  (U^  CCS  (W2) )  .EO.  ,)  GO  iD  II 
COSWt  =  (CO*  WODT-*'!,PVFiT(2  J-C'JR  VF2f  (3)*C03  («2))  / 
i  (CJFVFIK  ?  >*  Cir-'/FIT  (D*C0S(W2)  ) 

IF(  A*S(**n$W4>  .07.  i)  SO  10  i  1 

W?ST  =  A  MI .  1  '  W?CT  ,  U?) 

W2END  =  A  M  AV1  <1<P:MP  ,  K?) 

ic  ■'’ovTivur 


THE  IilTERVA.  USpi  m  r  O' )  A  L  L  Y  TP  A  C*f  THF  W?  VALUES  IS  CALC J_ AT  ED. 
IN7-PVL  =  { W?“M  0-U2S7 ) / ( FY0C722-1) 


THE  *'Y0»T2  2  C42,W1)  -0  O-DINA  Tr  PaIFS  ARE  1 

CALCULATED  ASSUMING  LL  VALUCS  IF  W2  eETWL.  :<  THE  SMALLEST  AND  LARGEST  VALID  L 
W2  ARE  ALSO  VALIO.  f. 

we  =  wcsT  |:- 

ro  *•  j=i,MvnpT??  i 

HCOPDJ  )  =  V2/-3I  H 

IF(  (C'Jn^FTT^j  +  .-ii^vFiK^j^CGStWS))  ,E0.  0.)  GO  f D  35 
COSKi  =  W  woPT-CUPVFJT  (1  J-CU9VFIT  (3)*COS  (W2>  )  / 

1  (CJFyFiT(»urufc.vFiT  (h)<co?(W2)  j 
JF(  MS  r'OSM  )  .  GT.  4.D  GO  Tn  3  5 

Wl  =  ACOS(HCWl)  l 

VCD  OR ( J  )  =  W i / 0 1  ' 

GO  TO  36  j 


IF  A  VALUE  OF  W  2  0E*r*-,EFM  TH  ^  SHALL  EST  AMO  LARGEST  VALID  4£  IS  ND  T  VALID,  TH r 
COORDINATES  OF  THE*  n^IIJT  CONTAINING  THE  INVALID  W?  ARE  ARBITRARILY  SET  TO 
(-.15,-. 2D.  TMFSr  ’’DINTS  CKOUIO  PE  DISREGARDED  GY  THE.  USER  • 

35  HCOOrMJ)  =  -,16 

VCD  OP  (J)  =  -.21 
IN<(J>  =  3 
INK  (HD  =  ' 

38  »2  =  4  2  +  I’TEP'/L 

43.  CONTINUE 

IF(C  UPVFIT  (  1  f1 )  .rn,  1.)  HPTURK 


THESE  CALLS  TO  T  A  E  C“LCOM°  PLOTTER  CAUSE  THE  CURVE  TO  BE  ’LOTTED. 


"  ” 


X  =  HCODP(l)/.lP 
Y  =  VCOD  P ( i) /« 1 F 
CALL  PLOT  ( X ,Y, 3) 

IF  ( X  «LT  .  A,)  IN-  (2)  =  3 
I  f  ( X  .GE,  0  •)  CALL  PLOT(X,Y,2) 
00  5  i  MP=2,'  5  0 
X  =  H C 00 R  (  M‘  )  /.  15 
Y  =  /COD'?  (  P-  )  /,  15 


test 


iSSHSSI  -4S, 


oooooooooooo  ooo 


r A_L  (  vt'-‘ J-Mk'f  ^  f)  ) 

H  (  C'i’  '  V  "" 

j-p(v  .0--.  ■' .)  hj  3ir(  ',y,  i) 
vi  =  >-'CDO  f  1)/.  1  +  .  L? 

yi  :  rr  mV  *  .  t  v 

I  F  (  Y  j  .-.1.  ;)  0  A !  1.  N'IM?;  FfXi  ,Y1,,  J  J'  .F''FT,  j.,i) 

X2  r  up 3  0  (  1  ’  I )  •  A  -5  «■  .  1  2‘ 

Y£  *  VCK  3  (  IT  >  )  '  11  •>  +  .  1 

rr(ye  .r:T.  -  M.  L  WH"  e  ‘  (  *2»  Y2, .  1'*  ,  ,F0PT  ,  j  •  ,1  > 

K  ”7  J  R  *.■ 

T»  If  i 


■up:  Cl'*'  n  •  CP  "P  r 


•  O'YIPT  ??,hc;gi  c  » '/COOK,  CU-  '/FIT,  JO'^0  =  r ) 


THIC  CU  H  C  DT  I  -<r  C  \  L  r’ AT  ”  ”  T  fOii.’TS  THAI  AKE  OUTPUT  TO  FILE  ■*’:?UlT  O'! 

PI  )T  T  .0  A'.',  r  V  /  -DJ  J"'  '  T  Q'  i '  f  IT  C  U-  5  .iF  the  SdCQNO  Dt.n-'R  Y33LtLi.AM 

TkAh^fc  -mat;  c.  Ir 

A  YC  F  T I C  -  TM;  MU  3F,S  ntr  TO  D r  OUTPUT  O'*  PLOTTED 

MP(  :  p  A  NJ  P  VCO/P  -  FT  i  T*»r  l^ONT  AL  AXIS  AND  V-'TllDA:.  axis  cco^tikatfs 

JF  .Hv  FCIMTR  r0  ">  r  TJ'°  LT  •>  c  LC 7  T  c  0 

OUFVFIT  -  r  lJC  -Ter  .'III-  LCr/rIOI-S  ST  O'3'  THE  NINE  TE\HS  OF 
A  Pr  *  0 X I H  A  T  I  NO  4 

co^wrr-T  "  r hc  om  -  cinhs  tok^i  r kEoue ncy  io  os  -apped  ro  a 

TWO-  Oi  HE  NS  T  OUT  L  u  NTT  P 


CTI-  MICK  HCOOr‘(  "'2',  V^COM!  I),  CURVFIT (18) ,  INK(1..  ,) 

c 

f:al  i  r.,T  VI 1  ,  r  MT  •/ L  2 

c 

PI  =  2.1  41  T  F.?v'  7 

DO  <■  'I f=  2 ,  l1' 

5  IN<CP)  =  ? 

fi.. f  •  =  a  CoS  mow  pr)  '=>: 

upo:’ti  =  :m 

Mopr  Ti  = 

C 

C  pop  ,v'Y  w,  THE  SrCOW  CpD-p  ►'CCLFLLAN  T  F  A  NS  FQl-  S  AT  ION  EOJAflON  (A  nUAD,<,4TIC) 

C  IS  5  0LV-0  F^r  m  l~TUO  TH'  nLAHi.ATJC  FO/"ULA.  FO*  the  FK3T  SO „ J 1 1  ON  of  TNF 
C  QUADRATIC,  F  H  ■_  L6t>Sf''T  4*10  SMALLEST  VALID  W2  AKE  FOUND  BY  EVALUATING  1  Hf 
C  FI  ?.5T  c  3  luTI  ON  Ar  HA 11 Y  EQUALLY  SPACED  VALUES  OF  WZ. 

0 

WZE  1  1=  =J 
W2r  '.'Hi  =  (.« 

W?5  T  2=  3  I 


C 

C 

C 

C 

C 


W2'*k  D?  =  f  .  T 

DC  Z  •  1  =  1,  *'rOcTi 

V.2  -  3 1  *  (T-i,  1)  /M  CQPTZ 

r  =  '>»CIRVC  T  (!  )  *C0  WZ)  +?■*  CURVFIT  (7)  +240J  !VFIT  (  3)  vCOS  (  Z*  W  Z) 

-■  :  ''L,l?V,rtT  (  Z  )  +  CRV  FIT  (‘t  )*  COS  (  W2)  4-CUI'VFIT  )  *3  JS(  2h  W2) 

('  =  (CUC  '/FT'  {  i)  -"ip  VFI )  (  A  ) -COSWQPT  )  +  ( CUPVFIT  (  3 )  -G  UFVFJ  T  (  0) ) 
1  'CDS  M2)  +  'OT  VeI7  !8)-CUrVFTT(9))*CQS(Z'W2) 

I  Aj  10  A  l.  =  3  2  -4X  A  *0 

I  FfMOKAL  .  LT.  )  GU  TO  2, 

I  F(  A  .  -.  )  00FW1  =  -C/P 

;  F(A  ,NC,  '  !)  C0-'W1  =  (-8  +  SOc  T  RADICAL))  /  (2?'A) 

IF(AO«f  roswi)  ,0T.  1)  r-0  TO  i.) 

W2?T1=  Aurw  C/'ZSTl,  V.?) 

W2EN01  =  AWAW1  (WPFKjoi,w2) 

NOW  F OF’  ANY  V  A  Nn  fo  Tw-  SECOND  SOL'JTION  OF  THE  OUADRATID  EOUAIION, 
THE  LAP  TEST  AND  SHAL*.EST  '/ALIO  W2  IS  FOUND  BY  EVALJATISIS  THE  SECOND 
SOLUTION  F  0  J  A  7 1  ON  AT  M  AW  Y  -HALLY  SPACED  VALUES  OF  W2. 

If  IF/  A  .  CO,  \  )  '.TSWl  =  -C/R 

. . .  . . . ,  .  ,i uu^ijjiiwiWiiWiiww'wirT 


2' 


C 

C 

C 

C 


jr(r  *  f':  •  •'  r  v' ^ -  -  '  _w  -  i'o*.  r  t  :a'ucal>  )  /  r7 ‘i, ) 

•  d  jo  to  ?■ 

H2r-i  ;  =  i v,r  u-  ( wj" f  ?,  i.  ->) 

-7=  a  r.n  (',i  T-yr  ?,w; ) 

(C>l1i'lllr 


™-  7A'IA'-:L-  S  ucr">  ~  EQUALLY  S°Ao:  THE  W2  VALUES  F',S  -'jn  i  *IT  T  ok, 
OF  r  HI  rij>Dit~Tr  TJr|  A-.s  rftL,uun£0/  LJtil  'A  -fl-H  i0L,,I0N 


v  yo  *  i<  i  =  ^  y  OF  T  7  *»  ■'  > 

*'H«r  xr r  =  (  hyd^t  ?  -  /  j)  + 


C 

C 

C 


C 

C 

C 

C 


IF:' 

'  1  -  V 

■'/rUDl 

- 

W2'  rl 

*  1 . 

'?  =  V17  “tp  E 

- 

u  2~  r  ’ 

I  r  ( 

i  f  M  1 

.  _T. 

• 

>  MM'D  1 

- 

JC( 

'em: 

.  LT. 

• 

i  u  ■;  7  K  ? 

- 

3 

IC( 

'  C  f  “  t 

.  .T, 

• 

'  cp  r  o 

f'  1 

*  F  ( 

T  t  o : ; 

<  .  T. 

♦ 

> 

r 

v  YPF  t 

2  2 

I  *  JT 

-  *■'  VA. 

US  FD  7r 

rD  IALlY 

SCAT-.  ' 

FO¬ 

If.* 

VLl  - 

(H?- P 

'  i 

-wisri)  / 

(M« » 

.  KCi  - 

IL) 

,lVr 

2  2/2 

(  U  i 

'  cddo: 

‘.AT 

r  PA  I 

i  c 

VAt 

J 1 5  DC 

*2  V 

’  T 

FU  7H- 

MLtF 

7 

W7  : 

=  up^t 

j. 

no  t 

Ji  =  i 

'  1  ' 

u,4  C  <  K 1 

!<  CD  0 

Jl) 

= 

M  2/  °  T 

T  VALID  V?  AFF  ALSO  VALID. 


I  !  <7)+^CU>  Vri1  O>*C0S(2«Wg> 

>  ^WPIi  (h)*COS(M2)+CUovfiT(s)»:d5(2>W2) 


c 

c 

c 

c 

c 

c 


c  =  (HP.rr  (1,  -CU-*  vrn  (,  )  -COS'IO^T)  ♦  ( CU=V  FI  U  ?  y,  U  t  (  F,  ) 

;roc  (M?)  *  'cu-v-it  (a)-r.iM  vf1T <$)> *co$ (2*W2>  '  7  1  (G>) 

f  AD  3  *  L  =  R  '  2  -  * * -A  -V 
!FC'^m.  <  L  T ,  .)  DC,  TO  «' 

;:fca  .  r%  -  ,  rn^A.  =  _C/D 

:pji' :'/! •  =  (-3  *  so*  T(*aoicAL.>>/(2«i> 

j  F(  AR-  (  0  VI  )  .  D|  ,  -t,  )  gc.  to  <  o 
W1  =  A  CDS  (  R  wi  ) 

VCD C  7(  Jt)  -=  w  1  / “>  j 

00  T 1  a? 


IS  NGT^/AII^  rMr^Uon^Ji?-«;V?p,J,fcH-C-n-H-  SMALLFSr  A,<0  -**GEST  VALID  W? 
AR“  /»opTT  f-A^TLY  c-FT  -0  #  'f;  '  C-  iHr'  f'0iNl  C0NTAINIUG  IHE  INVALID  W2 
0ISREOA~n[!l^Y  THZSt  P01^S  SHOULD  3E 


44 


47 

5fj 


C 

C 

C 


HCDO'  (  Ji)  =  -,j~ 
VCDO'v(Jl)  s 

2  N<  (II)  =  7 

3  U*  <  » 1  +1 )  =  7 

W2  =  <4?_  ♦  J>  TVL  L 
rO«TTMlF 


THE3£  C'l,lS  Tr)  THr  ^LCOmp  d  lot  t  c.c  CAUSE  THE  CURVE  TO  RE  °L  D  TT  CD • 
IFCCUF  VFIT{  I'M  .  ~Ot  1  .)  r.Q  r (j  bl 


y  =  Hr  03  M?  )/,!'• 


Y  -  VC03F (1)/,1H 
CALL  FLOT(j(,v,t. 

I F< X  «L '  .  ••»,.  3^(2)  =  7 

IF(*  !Gr'  *’L  3Y440L<X»/,.P7,3, 

Of  "  M>  '  .. M hq r; ■< i 
v  •  ICO"  }  / ,')> 

V  ...  .  •  ,>r  ‘  .  tO 

CALL  3 1  c  r  f  y  ,Y  ,r  jvr  (  ^  p) ) 

COMTI  vu- 


{. 

1 

I 


( 

\ 


0 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


IF  (X  .  Gf  •  ~A  L  ■  v  n.l  L(x,  Y,  .  .  7  ,  3,  > ., -1) 

Vi  =  HO'JO  (l)/»  1  +  .1?' 

Y 1  =  Vf)Or'(ll/.1  +  .12 

T  F  ( y  a  .  G”  4  ...  )  ~  L  L  >'H>F;'(/r.JYi,.i-  I,~0r 

X  2  -  Mfj  C"  (‘■(W  1  ?  )  /.  i  i  •••  .32- 
Y?  -  VCOO  ( ,jv 't  '  K  )/.  L-  +  ,1c.  > 

1  F( y  2  .ST,  •■.)  ''  I.L  'iJoe-(y2,Y»f  .1  .  ,F()PT  ,  1) 

6t  iF(:r‘T:  '•"FI-1  j .)  GO  T0  1' 

the  'o  =«>nw_Y  sr.c*  su-  w?  valifs  is  calculated. 

IT'/L?  =  {  M?r  J  7'>-  N  2'"'T2)  /  f‘-1Yf  P T 2  2-MWC 9  Ki -1) 

THE  <'Y  IF  7  2  2/ 2  f  WT ,  '-M  '  C  I'JvniMATr  f-’  /5 1  r  S  l\t~  calculated  A3SJMING  THAT 

ALL  VAI  M*  S  :<r  W?  '-•’■i"  J  THF  SMALLfSl  AMO  l  />  kG  EL.7  VI  LTD  A  2  IKE  ALSU  ViLTD. 

w?  -  w  2ii  I  ■* 

LI  r  J1  LYPCT,; 

“Ocnj?)  =  M?/7T 

,  :  I*  C!JRVr“"  (_,)  <or>  *=  (  W>- )  +1‘  ru:>VcIT  (7)  +  2*3J.'VFIT  (A)  5-C0S(?‘  w?) 

*'  =  7JPVc-TTf  ?  )  •»-  ^  *  I  ■?  V  ciT  s  <W7)  +01)-  VFIi  (•')  '035(2'  W2) 

'  =  (jijs.ycT- .-„r  vpjt  (;  )-CCS<OPS*)  +  (CURVFIT  (  3 )  -2  Ilf.  VF 1  T  ( f  ) ) 

1  "C D  ?  (  M  2)  +  ( C  U  "  V  s**t  t  (ft ) - CUT  VF  j  T  (  9  ) )  ** COS  (  2*  W 2 ) 

P  A  7  I C  A  t.  -  a- >2  - *  A  *1 
3  FlhJHL  LT.  '.  !  GO  TO  ?> 

I F  (  A  .EG.  \  )  '-7SN3  =  -G/r 

IF  (A  •  NF .  "  )  00?N<,  -  -  :,0k7  (RADICAL) )/  (2*  A  > 

3  F(  A  F  C7-U  )  .31.  i.M  GC  TO 
t-'i  =  a  cog  ( ^wn 
VC3C  <  J?)  -  Wi/aT 

FQ  TO  87 

IF  A  \j:  l.l'!  OF  4?  -HT!'""N  7H"  m  UTS  CP  T  Mr  S  HA  L  L  Ir  T  AM  J  LARGEST  VALID  W? 

IS  MOT  V*HI<1,  TH"  G  7  PDi  MAT-.  c  Cr  7  HE  POINT  CONT  A  INI  MG  THE  INVALID  H2 
APE  A  r  1  f«  A-<  1 1.  Y  a  rT  '0  -.25  ,  ;HrSt  POINTS  SHOULD  7E 

OISRFC-A  4  nt  0  r,,/  T«E  ’ )'•' " R . 


8!' 


87 

9C 


F'CDf  J?)  =  -.1.7 
VCD  C  =  -.0- 

IMK(J2)  =  ■ 

IN*  (  )?+D  -  - 

w  2  =  W  2  +  T  ^  T  VI.  ? 

COY  TIM  i  ip 

IFCUEVPir  (  !“»)  .  0.  1.)  GO  10  3 


C 

c 

c 


W'* 


THESE  CULL  TO  THE  C‘LCUmp  p  nil  Ek  CAUSt  THE  CURVE  TO  9?  PLOTTED. 

X  =  HC  CO  P  ( H  wnp'<  ’7  /  ,15 
Y  =  VC  CD  R  ( H  W0^'<  ?•  / 

CAU  FL0T(*,Y,7) 

1 F  ( Y  .If,  7.)  TN'Y(2)  r  - 

IF(Y  ,  GE  ,  T.)  C  A  L  PYHOOL  (X,Y,  ,4,  D.» -1) 

MM£  =  MH  0R<  ?  +  j 

DO  9  •  H3  =  MM*  ,  MVQ 
X  =  HDOOT(H-) /.  1-7 
Y  =  >/D  OOP  (  ug  )  /♦  1U 
CAlL  =LOT(y.Y,T‘K(M  G)  ) 

95  COM  TIM  IF 

1 F  ( X  ,  GE  .  T  ,)  DA  1.  SYMOO  L(X,Y,  .i-7,4,  j.,-1) 

*i  =  KCDC  (MWOR'YP)  /.  15  + 

Y I  =  VCDGXfMWO^7)  /.  tc  + 

JF(X1  »3T«  f.)  n.*LL  »'JHPcR(Xi,Yl,.lu.3,F0PT,U.,l) 

X?  =  HCDO”  (  HY0°T92  )  /  *  15  •»  .125 
Y2  -  VCOCR (MYO»t?2)/,13  +  .12- 

I  F(  x  2  .GT.  T.)  C*LL  MUMS  ER(X2,Y2,.  ICO,  FOPT,0.,1) 
m  COI-TII.UE 


C  * 4  *  *l  1  *-'*■**  *’•****  t  ..  (..,m 

0Vr:  L  ►  Y{  L  ,  7,  “) 

c 

rc^ff  r-  -  Q ■'•vo  t 

C 

C  MOO  ]  FT  n  V.  F~T0M  nc  TH  3iTp*s  for  n£  DESIGN  OF  LINEA? 

C  PHAM  “H-iiF  P‘e'IL':'  h~S°')V!‘"--  <  F  3  *  )  FIl  MRS  USING  7  nr;’ 

C  REMf7  "  XT  N*  I-  0  E  ALGO' tthm,  JIM  *'CCl  ELIAN,  RICE  UNT'/pRSITT, 

C  f^OL  !  2,  !''^. 

c 

C  THIS  °’0C»K&P  OFPTO^  LI  ^  S"  FI  R  lCHPASS,  HISHPASS, 

C  OANPPAM,  *cnTT)°,  A*jr,  HULTi.r»A^r  FILTERS  WITH  *P  70  i ;. 

C  DISJOINT  FT  f-  °'l 1  HOY  '  \  NO  5 ,  ''tfH  Fr  ZOMSNCY  BAH  P  MUST  8- 
C  51°  A  PA  T  FB  TY  a  trT  NJ7  *’  I  L“'nrF  T'AwSlTIOiM  BAND. 

C 

C  A  o  rcC\ I  r'T  r  n  ^  cr  T  H  •“  C"T"If.  AL  Fj.LT  Eh  DESIGN  PROGRA  f 
C  INCLUDING  SOIvCr  r'r  ~~  ,  "SOW  r-i('  i  c  f  f  no  EXAMPLE  FjLt ER 
C  DESIGNS  CAM  -E  ^O'lV  I!  H-  [r:  *  7*  A  HSACTIGNS  ON  AUDTO  AMO 

C  ELEOT-OACOJSTI CS,  \T'_.  '  I  -  T  J ,  K  f-  •  t,  PECsMTth  1973,  d-R'S, 

C  IN  T  f-r  PA  PE  f  TITL-o  "A  "'OMP  lTF-  -coGPA*-1  FOP  DESIGNING 
C  0°T  1 MHU  FI"  LI  NEAT  •  >'AP~  DIGITAL  FILTERS"  PY  JAMES  H. 

C  MCCLELLAN,  T‘HOMAS  '*>.  =>A~>iT3,  AfG  LAUf'NCc  •( ,  F,  APINrP» 

C 

C  THIS  PPjRiAM  WTI.L  0-cTGH  A  FILT'f  WiTw  AH’  IMPULS:"  RrS°OM”  OF  l  :  N  GT  H 
C  tMFMA  X  0"'  LESS. 

C 

COMM  Of  /ON:/  Nc  T!  T  /*  ]Jt/  m  /OCC/  MY0PT2 

CO* "OK  PM,  r>n,n-'/,  y,Y,M  10, Or.S,WT, ALPHA, lE.XT,NrCN3,N5\I0 

c 

PM'KSIOK  I  FY  r  { f  ),A'MM),  fLPHA(bG),  X(bb),  Y(-on) 

HI*-  IMS  10 ^  H  (SS)  ,  *XTN(oi  } 

OIMNSJOC  OESCiM  c> ) ,  GRT"1  (1 '  «  5)  ,  WT  { 1  -  «,£  ) 

DIM-  HE  ION  "PPM  ?  )  ,  R“03-  (2V0  ,FX(l.  ;  ,  WTX(ir)  ,  0  Ft/ 1  4  T  ( 1 ! ) 

C 

C  THE  9IMNS10N.,  of  TH*  A774Y^  TEXT,  AD,  ALPHA,  X,  V,  EXTN,  AMO  H  ft  RE 
C  (TRIJMCA  T  E  (RPMAX/2  ))  +'  ,  THE  DIMENSIONS  OF  THE  ARRAYS  DES,  GRID,  6  NO 
C  WT  APS  1  h  (  (F  FHNCA  T-  (  'fuiy/?)  )  +  E)  • 

c 

OCUr L  L  =>f-  .OTPTTI  pp,DI 
OOU--LE  pf-IOTSIow  ft  0,0-'./,  >,Y 

c 

,5I2  =  f  ,233iTA3T7i'q6 
PT=3.  j-  IF  )?.  ‘■■PT93C  3 
NFf'AX  =  il3 

IT  (MY(»pr  2  .  PQ.  1’  NcWix  =  ( X  -  i  ) /?  +  i 
IRE POP T= 1 
iCJ  CONTI  HU": 

C 

C  P^OSW  INPUT  SEOPT  U 

C 

115  IF(  3  PE  PO  PT  .  LF«  °)  PRINT  i  IF,  UFMAX 

116  FOh  HAT  (//,'4X,MPNT“R  AN  0  TO  F I L  T  t  .*»  OPOEK  OF  "'jT7,"  OR  LSSS»",/) 
iF/JfotPOPT.  LF.  2)  REAO‘,N  FTLT 

IF( MFILT .LT ,7  .OP,  WFILT  .GT, NFHAX)  GO  TO  115 
CALL  COOCHEC  (  H LT,  X 0Qn  ) 

IFflODO.  EO.  0)  G'i  TO  llr- 
103  CONTINUE 

I  F(  I  RE  PORT.  EO.  1)  PRT  qr  \  \j 

117  FOf  HAT  C+X, -HOW  H'MY  TRANSITION  BANOS  DOES  THE  FILTER  HAVE?"/) 
JP(IFt  POPT,  F0.1.)  PFft  ")«-,MTPANO 

N8AHDS=MTB9 NO  t  ' 


t 

1 

I 

C 

< ' 

f 

/■ 


r 


0 


IP(sPfcNDS.L  6. ^  .  MA  rb.G7  ,  1,  )'  GO  1  D  "i!  3 

C 

c  g  n  -)  r  Ksii  >  rr  r> 

c 

LGf  .D=1? 
jb=:>-  i  qft  md5 

>'E[  Gfc  (  i)  =  ■,  '  1  (  jn)=1, 

1p<N‘PAKPS.  cr'.  1)  r0  T0  12  ■* 

118  TP(if’rSDF'.^.l,r-,:^;oor,tn(j)  PRINT  a19 

119  FGr*  AT  ('  ~  H -■  "^4 '!  C  cr  br  FK HU END  I  Ec  FOR  " 

X  " .  A  f  H  T  ••  1  NS  I  ”  T  N  r'\\,0.  ••//) 

JDM  =  J~-  3 

I  F(  T  RE  PI)  rT  ,  n.t.rr  ,TR-PfiFT,EO,;)  R£A"H,  (PEG  SC(  J )  ,  J  =  a,  J  91 1 ) 
no  tCi  J=?,JRJ1 

iFC  FnGE  (  n  .G-.  1 .  ’  .J^.R"  CSE  M)  .Lc.  J.  ,)  GO  TO  ild 
121  conn  MI- 
123  COMITUr 

00  ;  2-  J  =  i,  P 
C 

C  SINCE  •'Cf  LLLL<UJ*S  P  OG-.AM  "C-c,  OLGPtJS,  H-.Pt,  .<  AOI A  M3 
C  ARE  DART  I  ALLY  CO  N'/F'"‘E>D  TO  r-GR£-?. 

C 

120  EDGE  (  J)  =  F-.OG" (  J )  '?  . 

IF(1  FEPOPf.  fc'04  1  )  nRINT  l  ;r. 

125  FOP^AI  (’+ Xj  ”  F'JT  AN  TOTAL  AD$0l  UT  S  ’-‘AGN1TUDE  FDR  EADH  BAND’*/ 
X  X,MCF  i  9  Tc  -pr-?  oivo£  cIL]  (USUALLY  1  OR  »'),"/> 

IPfJKtPOPT  .rr>.  1  ) 

X  fan  *  ,<-Y(  J)  ,  '=  1,N0AN  C'S) 

IF(j  PE  PO  P“t  ,  c0, 1,1P  « 1 0  F  3  C  pr.  £0.4)  PRINT  128 
128  p  OF  ‘1 A  T  ( »  X ,  "  F  N  T  £  t  m”  ^A3  ]0  OF  THC‘  9  A  NO  E.RPQRS  (  ONE  NJ19ER  "/ 
X  ••  X ,  "FD  R  EACH  n-'*n),  POO  EXAMPLE  A  i  BAK’D  FILTER”/ 

X  -X, "MIGHT  harp  AN  PRROR  RATIC  OF  i,  lt,  !>."/> 

IP(]  UfcPjPT,  F0.1.n.,..i?rn0  Pj.rO.i  ) 
v  F'EAO  •  ,  HT/EJ  )  ,  J  =  1  ,N9A  NOS) 

NPC\ S  =  Nr  I L  r  /?  ■*•  t 
C 

c  SET  nr  TME  r  N  Gc  GE  0.  the  N"‘°  OF  POINTS  IN  TH-  GRiD 
C  II  (FllTLF  LENGTH  +  1)  -  GRIn  DENSITY/? 

C 

GRID  ( 1 )  =  E  0  3  f(  1) 

DELF  =  L  GR 10^  NPDNC 
OELr  =  i.  •  b  /OE  Lr 
J  =  i 
I.  =  5 

L  BA  N  0  =  1 

140  FiPs  t-r.GE  (L  +  l) 

IMi  TEMPsGRID(J) 

C 

C  CALCiMTf  f  H "  OCSIPTO  MAGNT  TNPf  RESPONSE  AND  1  HE  HEIGHT 
C  FUNCTION  ON  7  u  f  GRTr 

C 

OPS  (  J)  =5  Fc<  PX,  LB'ND 
WT(  J )  =  WA  T  E  (  WT  X  j  L  A  NO) 

J  =  J*-i 

GRID ( J )  =  T  NP+0-Lr 

IF(GPIO(  J)  .  GT.pmp)  qo  TO  15, 

GO  TO  14 5 
15 Q  GRJO (J-i )-pip 

OES  (  J-l)  =?PF(FX  BAND) 

WT(  J-i  )  =  WST  F(NTX,l.  BAND) 

L0AMD=L3 AND  +t 
L=L  +  2 

I  F(L  BAND  .  GT  .NO  A  NrS  )  GO  T  f.  154 
GRID  (  J)  =  Fr»Se<L> 

GO  TO  l-*» 

15  3  NGPIH-  J-1 


■-•XT:;- -a  L  e..t '■,)!- 


fOUAL.Y 


ir — 


# 


c 

i 

1 

( 


I 

r 

i 


i 

c 


i 


c 

C  INITIAL  GU;  ?.  •  FT’  T1  " 

C  ?P4Crr’  ALONG  ”  Hr  G0' 

C 

2“  !  •:y^  =  FLjA-  (  NT-RCO-  1  )/rL0AT  ( t\'r  CDS  > 
no  /!■  J  =  1  >  wr  3 1 J  G 

21  i  I-X|  (J)  =  (  4  T  ~  •=  41. 

I  ext  (kf:  ni  +  d  =*i  r-  r  n 

\M1  r  5  -1 

N_,-NFCwS  4 •_ 

c 

C  CALL  THc  R-f-T  "XGH  NG"  M.G  nil  Mv  TO  GO  THE  A  °  P;<n<  I  WA  T  £  Q\| 
C  PRO^L-'-4 

c 

Tfllu  i-  ENf  7  (  £31”  ,'ilA^TS) 

C 

C  CALG'iLMi.  !Hf.  THO'IL^T 
C 

nr>  '  ,  '  .5=1,  N“l 

3l  M  (  J  >  =•  .:*■  \  l  PH  A  (T-J) 

M  (N”CM£)  = _  PH  A  (  i' 

c 

C  P RO  GRA u  o UT  POT  «•  TO T '  0  N 

C 

3e>  )  PRINT  3-,,-  «  W-J’Tc  0.,7r,,T 

3P.,  FOR'-'AT  (/ /X»72(  V^- ) CRF-r.iiMtivCIGNAL  FI *  PROTO”/’:'* 
X  M  FI  LT  F  ",  n”GTr,M**/' 

PRINT  3i*  8  >  N  FIlT  W"  It  “  <  1 , 37  8 )  K F j  l. T 
373  FORMAT  (?7X,  "rT  l_  °  LrN»T*J  =  **>13/) 

MR  I  «  E  (  i,  38  T  ) 

3$  t  FORMAT  (??vi  TMO’JLS  F.  Kt. iPC-NSt  ***  +  *••) 

GO  381  J*i,NF3NS 
•'awriLT+l-J 

WKir  F  ( If  3f  ?)  (  J-i,  ’•»(  J)  ,K-  1) 

381  COK  T  II»Ur 

382  CUF,UA1  (2CX,  "HC*,-  3,**)  =  *,£!£. F,M  =  H  (** ,  13  ,  ”  )**) 
no  l  ’  Xel,  I'PA’I  1  ,  u 

VUP  =  K+  5 

IFf/UP  .ST.N^'nP  KM°  =  Na  AMDS 
PRI  'I  T  75F,  (  J,  J=K,KIP) 

VM>7  T  F  (1,  7  8=  )  (  J,  )=K,X’IP) 

360  P0C4AT  </2  ‘X  (**  =>'  N'r  ,T7,  °-\) ) 

PR]  'if  3;^  ,  (  RrnG“'  2  *  J  - 1 )  ,  J=K,  KUF  ) 

WR]Tc(l,  3°'t)  (’-n;  e  (R*J-i  ),J=K,KUP) 

39)  cORXA  7  (IV, "LOWER  «ANO  :  n  C”**  ,  *-'F  lfc  .  9) 

PRINT  3?'-  ,  (P-nnr  '?*J>  ,  J=  k,KUP) 

WP1 T  E  ( lj  7 -3  5  )  (R”0"-F  (2“J)  ,  L=K,XUF) 

395  FORMAT  (2X,'*I)P°”P  ’*A NO  -n  GF»,bFl&.9) 

DP]  NT  >  *  ■  ,  (CX(  J'  ,  J=K  j  K*l  P) 

WRITE  ( j,  A  .  1 )  (CX  (J)  ,J=X,KLP) 

4cJ  FOP- NAT  (2y,‘*  PG$IRTfT  V4  LU  F  * ,  2X  ,  IF  1'  .  y  ) 

PRI  NT  x*ir  t  (  WTX  (  J)  ,  J=’<,  <"F) 

MR]]  F  (1,410)  (WTVf  J)  ,  J  =  K,  kUP) 

419  c0RMAT  (iX,'*WFIGH-  INV*,5X  ,SF15.9) 

DO  ?.{  J  =K »  KU° 

4 2 n  DEVI  AT(J)  =  1FV/WTV(  J) 

PRINT  419,  (  0:  “/T  A”  (  J)  ,  J=K  ,*UF) 

WPITEU,  423)  n”'/TAT(  ))  ,  J  =K,KUP) 

42v  FORMAT  (2  V »  "  Dr/T  A ’rX  ON"  >  5X  ,OFl5.9) 

00  -  7t  l  =  x,  KIP 

IFHFVIAT  (J  >.SD  .  )  GO  TO  43f. 

43'“  P'FVI  AT  ( J  >  =  2  C  •  J*  A.  OGln  (OF  VT  AT  (J)  ) 

PRINT  43  F  t  (  0r'/T  A  ’  (  J)  ,  J=X  ,KUP) 

WR11  F(  1,433)  (10/1  A  7<  J)  ,  J=«<,KUP) 

435  FORMA!  (2X,"0T'/TA  ION  IN  (BM,  GFi  t .5) 

436  CONTINUE 


c 

I 

! 

{ 

( 


r 


c 

c 


aV 

i 


r- 


l 


c 


i+F  >  COd  JNU: 

3  pop  <•;,  ■>  ( /  c  y  j  **r  x  "  R  M  A!  CR r  C  It \G  i  E  b  ( NUMCERS  M  US’5  1 J  -  f  I  3  L  1 F  j  " 
X  "  PY  r  3  )  ‘V ( 2  X  ,  F  i2 *  '1  ) 

no  J=l,  N’ 

c 

c  sinct  :  h;  ma.n  d?-)o- “  y  ’isf  ^  'Aiin-.s,  Hf  dlgRc-s  ar- 

C  PARTI/  l  LY  CO  n;  F.RT-n  TO  34n:  AN'S. 


45  i  EX’" < J)= 


:RTri  TEXT  (  J)  ) 


wrj  ’  r  (!,  I.  (J)  ,  J=i  ,N7) 

PRINT  v  2  Up  "Ed,"'  ') 

46'-  F O-  •‘A-’.  OnPU) 

DJ.TTl  d’ 

480  FOidAT  (/,  d  ,**O0  '■Oil  ’-1 1 3 u  TO  PdESIGU  THE  oROTOTYP-  FI- TER?’*,  /  ) 

pPAs3 ,  ic  rcr  nr 

lF()  A  i  r.-  F"  .  eo.  n  g  c  To 

PRj','7  i  -*r 

490  FO*  MAT  U  X,  "ENT  Tr  °Nf  OF  "HE  FOLLOWING  OPTION  NlM‘3rR5"V 

x  :  hangs-  v“!  ytht  Kr.**/ 

X  ‘*,"2)  '  H  AO'S  ~  f  NLY  TH-  FHIrn  O'Ti'OV 

X  tY,'*3)  TH  AUO"  '  M  LY  T">(NPjiIDI-  -/'NO  fcOGE  FREQUENCIES"/ 

X  iX,"4)  C  UANG  *■  '  N  LY  M-  Odd  F  A  "  t  C  *'  /  /  ) 

REA  Ed  ,  IRF  -’OPT 

&o  to  r: 

CCV'TINU:.  ‘  F-jn 


999 

C 

C 
C 
C 
C 


C 

C 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


function  o  Ain) 

FUNCTION  70  CALGILA'E  THE  0  ESI1  EO  H£  GNI  TUO  E  RESPO'fSr 
AS  A  FUNCTION  OF  PR'P'F  dY. 

OIH:  NS  10  K  ~  V f  “  ) 

EFP=FX  (-»*.  NO) 

RFI Jl  h 
sun 

FU'.'CYI  CM  M4  Tr  (  N7V  ,  L°  4  NO ) 

FUNCTJd'  TfJ  CALCULATE  'rHZ  weTGH7  FUNCTION  as  a  FlSMCTT.O'i 
C  F  F c n  U  t-  NO  Y . 

OIM-NOinp  MTX ( “ ) 

WAV  i  :■  w tv  F  A V? 0 } 

RFTJRK 
p:  kjd 

su^  oirrr  Nr  ps  me  -n  -nrd,NQ  anod 

THIS  '■UprOOTTUE  [  M  ~  ME  N  T  S  THE  RIME.7  EXCHAN6F  ALGORITHM 

FQR  th-  VIE  I  GHT  EG  0  M  3  YGH  TV  &°P*  UX1  HAT  ION  OF  A  CONTINUOUS 

FUNCTT ON  WITH  A  S’JM  OF  COST  K“S«  INPUTS  TO  THE  SUBROUTINE 

ARE  A  TENS':  G3IP  WH'CH  R23l.  /CES  THE  FREQUENCY  AXIS,  HF  DESIRED 

FUNCTION  ON  7HTS  G°  n,  THE  HEIGHT  FUNCTION  ON  THE  GRID,  THE 

NUM  R£F  CF  GCGINES,  '•  NO  AN  IM1IAL  GUESS  OF  THE  EXTREMAL  -REQUE'!  DIES* 

■j-^r  pp;  T  Gr  A  M  MINIMI  7- S  TH"  Q  UFPYCMEV  ERROR  PY  OET"RMINING  THE  REST 
LOG ATT3 N  QF  THE  EXT5rs,AL  r"  cQUENCit5  (DOINTS  OF  MAXIMUM  ERROR) 

AND  THEN  CALCULATE^  “HE  GOE  FFICI  EN’TS  OF  THE  ^ESI  A  ‘^.DX I MA  T I  ON . 

CCMHOT  °12  ,  AP,  OF'/,  X,  i  ,GP  10,  D£S,  WT,  AL  °HA  ,  IEXTiN'CNS,  NGRIO 
DIMENSION  E0GE(  2  ■) 

UTHINSIDN  I  EXT  (?/'), An  (PC  )  ,  ALPHA<&6)»  X(6b),  Y  (66) 

PIPE  NS  ID  N  0  ES  (  l  fP),GRin(10i-b)  ,WT(li45>) 

DIME  NS  ION  4  (G=.)  d  (55)  ,0  (  ftp) 

OOUPLE  3  r  G  IS  1 0  N  PI? ,  ONU  M,  OCr  N  ,  OT  LMP  ,  A,  P ,  0 
OOUF'L  E  3  F-G  1ST  0  N'  AQ,OE\/,X,Y 

gsa&jg&pgfggi .  - 1 - —  hhiumwim  —".'ajM** 

- „  --Sj=?rr-*-' I .Wj-Ji-, - 


i|. 


( 

I 


( 

( 

( 


c 

c 


c 

c 


THE  PRDHf  A,/  'LICIT  ‘  MAYJH!I>«  f , 1 1 K •-* £ F  OF  T T^RAT  1 0 NT  OP  2" 


lT'-"*AX=?t 
DLV_  =  -1.  i 
1(7='.  F  C  ♦; 

N77=Nr  rsjC4.-> 

«1'-  F.= 

lt'j  COf'IJj.'i- 

ipyr  (i  77 ) - sj  +  ' 
niw-=nit  s+i 
T  F  <  '<  1 7  .  *i  T  .  T  f  ?  •"  y  ) 

00  il  J  =  i , U7 
OT" v< P-  GRT  KXr<T  (  n  ) 
Trj.  <lP=0303  (  DTEM  p  oiT) 
ill  X  (J)  =0T-‘ >> -■» 

J”  =  U  F?K;-1}/10M 

nn  .2  J=:,N7 

12..-  A0(  J)=D(  J.M7,  j-T» 

0!.”;'  =  .  . 
f;OF>'  =  »  ♦  • 

K=i 

00  13  J:-1  ,  N7 

L  =  If XT  (  n 

0Tc.,<p=n  (  n  »i~<q  'i  ) 

ONUH=  ON'J  R  +  0  T£‘1  ° 

07; p=  i<r-  (,  i(j)  /mt'l  ) 
UnEMsTO?  »':  +  DTr  l3 
131  K=-K 

OFV=  HUH /OOEN 

NU=l 

IFfOr  V  .37  ,  ?  .r  )  M'!=-i 

0£V=-hU*  C  ~\J 

K=ri 

00  O  '  I  =  !. ,  N7 

L  =  T  r  v  T  ( J ) 

CTrv  P  =  K* r "V 7Nf (L' 

V  ( J)  =  P'-T  (L)  +0T£*«' 

1AJ  K=-F 

1FOEV.3  E,  r’fV'J  *0 

call  oij:p 

GO  TO  r 

15  )  Oc  VL  =  C  E\/ 

JCHVGt  = 

Kl=J EXT ( 1 ) 

KN7=  jcyT  (-J7  ) 

KLC-N  =  i 
NIT  -  - »  !J 
J=: 


/•  /*»  -r 


r  t 


o  1' 


c 

c 

c 

c 


SEARCH  F  OF:  THE  EXT»FMAL  CRF  OUfNCI  fcS  OF  T  He  BEST 
APPROX  I  HAT!  0.1 


2Uj  I F( J  « : 0, N77  )  YN'7-0O‘j.p 
I F ( J  .  G E.  N’77  )  GO  to  3-n 
KUP=irxr  (  Jf  j) 

1=1: XT ( J  >  fi 
NUT= -NUT 

I F ( J  ♦  L 0,  2  )  Y1=00*'P 
COMP  =  D£v/ 

IF(L.G£.  KM0)  GO  ”0  ?27 
ERR=.GEF(l,T7) 

EPR=  (ERR-OESCL)  )  MT(L) 
DTF.MP=NJT*  FRP-O-o  IP 
IFfnTCMP.LE.P.O  )  p  C  TO  7  r 
COMP = PUT* :p° 

210  L=L f l 

MtaaxemtMmm 


v  A 


21 


JF(L,Gr.  K  IR)  GO 


:i~ 


r  P>'=  G  =  P  {  l  ,  \J  7) 

r->  =  (LI-  =  -rS(L)'  ’•!  T  (  L  ' 
biz  ■‘V-’  J  1  'cw_~n>'c 

I r  ( :  T 1 1 7 .  l  E .  ,  : )  G  c  r  o 
com ^ = ■  j '.'T  ^ 


go  'o  2i  f 


TEX’  (  J )  =  L  - 1 
J=  J+l 
KLPW  =  l-< 


's  -r: 


joh-.p  r  =  ic  wr--i <. 

GC  ro  2  • 

22'  L=L - 1 
22!'  I  =L  - 1 

IF  (l  .1  E.  K(_0  W)  Grt  TO  ^  , 
rV G-GL !  (l,v|7) 

=  (et  ?-nrs(.)  ) * '•> t ( l > 

OT:  M  P  =  ti"7  EPT-OG  => 

I F( OT  E  ,G-  GO  “0  2  7. 

lf7(JCh.\'Gt.l'\  1)  'o  s  ??  e 
GO  .  0  2E  r 
23;  COMC  =  kot*.  7P 
2?F  L  =L -  1 

I F  <  L  ,LE.  K1.0W)  GO  T0  ?V» 
ePPsGE£(L,M7) 

E.fv  =  a  T^-OESfi.)  )  ’1 1  \ !  ) 

OTE WP=NJT4 E  RE-0 C"d 
IF('!TEyP«l  r .  ? .  1  )  GO  TO  2  h \ 
COHc  =  MUT*  0 

GO  TO  23  5 
2<>,  <LOW  =  J  EXT  ( J  ) 

TEXT ( J)=l  M 
J=  J  +  i 
iCH^G  E  =  JO 
GO  TO  2-1 

25  i  l  =  TvXT(j)+j 

IF(  JCHNGF.  GT.  i)  :  0  'O  ?i  c 
2r->6  L=L+l 

JF(L*Ge\  tf'JP)  GO  '0  26; 

EPP=GF'(L,  V7) 

ri>C ( r  f  ;  ,o=-q(l)  )  m t (  l  ) 

DTE'5F-NJT'  Ei  5-go  -o 

I F  ( 0  T  5  H5  .  L  '■  «r.')  GO  Tn  205 

OOVP  =  NUT*  .  R(- 

GO  TC  21  f 

26  l  <LG'W  =  I  EXT  (  J  ) 


J- J+i 
GO  TO  2  * 

3,  0  IF(J.GT.T-77  )  GO  "0  3?i 

lFTXi.GF  .I5XT(l)T  Kl  =  I£XT(i) 
IF(^N7,LT.  I  EXT  (  W7  )  )  •<nit=  t£xT  (,n,7) 
OUT!  =  GUT 
iUT  =  -l  !l 

J  — 

XIIPrKl 

C0MP=YN7*  (i  ,  |  /,;}  > 

L IJC  X  =  1 
31)  L=L+ 1 

IF(L.Gc.  KIJO)  30  ~0  316 
ERR=GEE(L,M7> 

EKF=  ( E f;E -OE SfL  )  )*WT(L) 

OTE^P=NJT:t  EPE-0  0'  “ 

I F  (  j  T  t  MP « L  E  • r'  •  1 )  GO  T0  7  I'T 
CO!'!p=);UT  "ERR 
J=l’7  7 
GO  TO  21  f 


311  L  UC  X  =  C 

GO  TO  52  F 

32*.  IFd'jrif.  r-T.  H)  G n  TC 

TFtCOVP.  f  ■  .  Y1 )  v'  =  co«-5 
K3*7"xm*7*) 

321  L=!»GP]  n+j 
K*i  iv 

\UT  -  -  OUT  1 
ro,-<"'=vih  ( ■ .  i  '  x '• 

33  :  L=l  - 1 

7  F  ( L  .  L  >a  D  '•))  O'"  TO  *  .  ’ 

•*f'  -OL-  "<  I.,  ND 

ukF  =  <1  IF  -O-GfL  >  7  'IT(L) 

nj:.  vP=  ».;-1  T '  EP3-!  0“-0 

I  F  (  "  T  t  *-°  •  L  E  ♦  ^  •  D  GO  T0  77~ 

J  =  >'77 

roHf=i  iji  * .  do 
LUC'S  LUDV'fl- 
GO  tc  ?7F 

3“  i  IFdUCK.  EG,  G)  GO  “  C  7‘"’ 

00  3  1  =  1 ,  f-FO 

345  IL'X1  (N7T- J)  =TtVT  ' N  7-  J) 

1  EX  I  ( 1 )  =  K 1 
GO  1  0  l  [ 

3G  i  <N=3  EXT (NT7  ) 

00  3(-l  J  =  1 ,  Nr  0  V t 
30  i  I  EX 7  ( J  )  =  J  "  XT  (  j+ j) 

I  EXT  ( h  7)  =<*J 
GO  r0  1  r 

37!  IF(JCHNjF*"T»T)  n  V  *1 

c 

C  CALCULATION  )r  TH E  GOP=  =  I0icNTS  OF  THE  TEST  APPROXIMATION 
C  USING  THf.  TNV'7Sr  H I TCRf"!  =  CUP  IE-  TF  A  NS  FORM 


4i  .  COnTIMJ: 

tit-'i  =  UPON  F-  1 
FSH=i,  E-  0 
GTE  vP  =  G=v3  K  1) 

X  (UT7)  =-?,  1 
CN=2<  KFI  M-  1 
OELP= 1.  /TM 
L  =  1 

IFC-PGF(i).  FO.1  «  t  AN  H  •  G  D  C  E  ( 2  **  KT  A  N  PS )  •  EQ  «  0  #  5? )  KK*<  =  i 
I  F  ( NFC  NS  « L  r  * 7  )  K'K=l 
IF(KKX.EO.t)  GO  *0  <-n; 

DTE *<P=DCC$(  PT2  G'  I  0(D) 

ONU^s DCD S ( DI? ' 0 r  0(NG»in) ) 

A A=  2  •  l  /(  HTE  vp-OM"M  ) 

oq=-  (OTE  HPf  DN'IM)  ’  (  DT "MP-  CNIJM) 

4(5  CONTINUE 

DO  3i  J  =  'i,N-ONG 
FT=(  J-l)  ♦OE  Lr 
XT=DCOS(PI?*ft> 

IF(KKK.tP.l )  GO  "0  41, 

XT=(XT-TP)  / AA 
CT= A  CCS ( XT )  /=  !*» 

4K  XE=X(L) 

IF(XT.GT.XE)  GO  t0  A2T 
ire  (XI  -XT)  ,Lt  .PGM)  GO  TO  41E 
L=L  +  i 
GO  TO  4tr 
415  A(J)=Y(L) 

GO  TO  42 E 

420  IF(  ( XT -X E)  .  |.T  .ec!t)  GO  TO  41L 
GRTO ( 1 )  =  FT 


A  (  J)  =  GE‘  (l,N7)  . . 

4?r<  Ct'!  r  t  k  !j* 

3  F  ( L  •  G  T » 1 )  L  =  L-1 
43  '•  COM  IMF 

G  >  i  ‘  (i)  =  r-*'"Mr- 
00:  \  =  ri->  /;\i 

no  i'  n- 7  m  c 

C'T-vO=  ,  . 

n^j!  !•-<  =  (  j-D  *  rp  -M 

I F  (?'’•"  i . l  7 , i )  70  -n  ■  . ; 

00  '  -  f  «■  =  !,  NM-. 

5 •  1  01  •  "PrPn  r  ;  P  -*-5  )  ■“ ^”7 :j 7  (  ”**5,!*' *■■  ><) 

5Sr  DT.  *-p  =  t.  r*  17^-10  +  ^  f  1) 

51  J  A  IF  Hi  <  J)  =0T  'Mo 

PO  1  i  )  =  ?,N'7fi^ 

55  ;  At  PM i  (  J)  =  >»  ALDHA  (  J )  /i'n 
ALPHA  Cl)  =  ,LPH1  ( 1  /C\' 

TP(KK’K«7P«1  )  3  0  '  0  07 

F(l>  =  2.'’MLP-U(  N'T  NT)  4AI  PH«(Nkl) 

PC')=r.  *  A  A  *  A  I H  (iv'POMS) 

n  (1 )  =  A L 5  H»a  (  M-  7  n  “-?  )  -  *,LotJ  *  (lOP^HS  ) 

00  i  !  i  =  l,  OH  1 

I“(  J .  I  7.  )  )  3  0  '  4  O 

A  4  =  A 

« '  -‘OF 

5i?  coG’iiai" 
p  (J  +  i)  =  . 
do  ’  <?  j 

ACK)  :F  (O 

52  1  P(m  =  2 .  •  *  p*a  pi ) 

P  (?)  =  P  (2  )  » A  (1 )  *  •>  »£  A 

JMlsJ-i 

00  .S'  t  -i  «  JM  t 

525  PC')  =P(<)^Q  (O+A  ‘  r  r  k  -  L  > 

.>rl-  J  +  l 

00  *  3 f  <  =  5,  JDi 

53  :  F  CO  =F  K  )  +  A‘**A  C<-  1 5 

I r (  J,  f-  0.  »*•■*<  )  70  i'O 

no  <  =  i,  j 

535  O(i')  =  - A(  K) 

0  (1  )  =C  (1  )  +i  A  rrc.n-l-J) 

54  i  CONI  3  MJ: 

00  (-3  J  =  i,N-7MP 

543  Al^HA  (  J)  s9(  J) 

5<*5  CON7- If  IF 

TF( NFC  N3 .Gr  *7 )  95 TURN 
ALPHA  (N-C.iS  +1  )=  “  ' 

ALPH  A  (  K;:r  CH3  +2)  =  r.  f> 
k  E7  'J  R I ' 

END 


(  c 

c 


DC'J-Lt  =3E7  3PIOH  FUNCTION  0(K,N,K) 

FUNCTION  TO  CALC’JLo  ~  LAGRANGE  INTERPOLATION 
COEF FICIcNTF  FQ?  rJ7r  I*J  THE  FACTION  GEE. 

COMMON  PT2,  AO,OE'(,  X,  V,7P  70,  DES ,  WT ,  AL  PHA  ,  ICXT  ,  NrC  NS,  N  3  U  0 
DIM- HP  ION  I  Eyre?.' )  ,A0(6R  ),  ALPHA  (GO),  X(bL),  Y  (66) 
niMENSIOK  I)E<!(IV  5),  GRID  (U  A 5)  ,  WT ( U  45) 

00U9LE  PPGCISTON  A  D, 0 EV  ,  X,  Y,  0,  P3  2 
0=1 .  n 
0=X  (  K ) 

00  3  L=1 ,M 
uO  Z  J:-L,N}M 
IF( J-Y)! 1 
1  D=2.  U<  0‘‘  (0-y(  J)  ) 


oo  oooooooooooooo 


2  CONTIMF 

3  nr.NTJIv'.i- 
1=1.  /D 
.\7Tnp' 


C  ;,lf1 

C 

!'OU"Ll  =>  r  :  3  JS I  ^  !  RHOTTfN  G  -  S  ( ^ » » ‘  > 

c 

C  F '  l‘{  r  TX r*  TO  '  AL  MAT  THE  FV\r>U:N.CY  F'MTGNSE  USING  F  HL 
C  L  AG  ‘  A  v  G  t  I  NT  '  R  F^L  *«  T  ON  IN'  1  l‘i  "  U  YG  ENT  S<  10  FOkM 

C 

ro‘^'01  FI'S  AG,  1 0 , L  ES ,  WT  >  A  L  F  Hq  ,  IEX  T ,  NFC  MS  ,  N  SR  1 3 

niM'N'OIDt-  T  “YT  ( f  ),^Q(G=),  AL^HA  (£.3)  ,  *(£>&)>  YO.O) 
UIM'NflOK  3E~(t'  0),  GF-Ji  (l  r  )  ,WT  (l'M-J 
n0'PL  E  =  P  :C  FTO'.'  P,G,n»yt:»PI?»/iO,r'EV,X,Y 
P=  .  * 

yrrcp]  n(  VT) 

xF=occr  (  pl 

o=  . 

no  i  j=i ,  h 

c=yF-y  ( j ) 
c=a~ ( j)/c 
0=0*- c 

i  o=P  +  C‘Y(J) 

ge:-d/q 
r-LVj'  G 
“NO 

C 

SUBROUTINE  OUCH 

C 

PM  NT  1 

l  FQ°'2'i  ("  *  A  >  *  *  *  3  **  *  FAILURE  10  CONVERGE  **-**»‘-**1s •»"/ 

o  P  A a  I. r  Cft  JSr  IS  MC^Uf.  ROUSTING  ERROR"/ 

2".  HE  IHPULSr  l“"r1Q!’GE  M  fY  r-E  CORRECT"/ 

3";-RHrC*  HiTw  5  F-  -QliCMCY  response") 

r  El  'r't. 

EUr 

C 

subroutine  onncH-o  (ncil t,icoo) 

C  CHECKS  r0  F  TV'  fILT-p  CODERS 

1=nFIIT/2 
IOOP  =  NFIl~  -  T* T 
RETURN 


£  MO 


C  4  *  4*  j  .>  .v  -  n *  « J' t-  *  4»  *  «  *  j(x^i 

OVf  G  LAY-:  HGL, ’»,•)) 

0  4*.  4*  44i.  (•  4-r  *  «  4  *.**  *»  4  4*  *  ?-  4**4*>.**  *+*■* 

C 

PROS  PA  H  TORCHED 


(*-f»*f*  **44*-*  *¥***•*»< 
r  to  4  *  (.  4  4  >4  r 


THIS  PFJGf-AM  CONVERT-  THE  HA  GNITUnf  OF  THE  1-0  FREQUENCY  RESPONSE 

V 

HAG  (  H  (W)  )  =  Hi  5)  +  SUM!  H  (  J  )CGC  (WJ)  FIRST  TO 

J=1 

K 

MAG(  ii  (W)  )  =  sum:  HiO'  U)COS(  J  V)  AND  THEN  TO 
J  =  1 

K  J 

MAGiH(W))  =  SUM!  HI  0"HFB(  J)  (  COSW)  .  IT  ALSO  CALCULATES  &N0  PRISTS 
j=n 

THE  HAGNIT IDF  OF  THE  2-0  FRF  CIIENCY  RESPONSE  AT  121  POINTS  IN  THE  FIRST 
QUADRANT  OF  THE  W2-H  PLANE.  THIS  IS  DONE  BY  REPLACING  C3SW  IN  THE 

K  J 

EQUATION  MAS (H( H) )  -SUM!  Hi CCHE8 ( J ) (COS W)  BY  THE  MCCLEl.AN 

J  =  T 


c 

1  ■* 

*- 

l 

t 

i 

t 

( 

V 

4.  ■ 

t 

i 

( 

c 

( 

f 

\ 

c 


C  TRANSFO1  RATI  0  "H  v'T-'L  C  “rA3  (  ^ ('w^,w~D  )  . 

c 

co-i'-'-on  / a a  a /  Hrri^  /nC(v  cm  vfit 

oQ-C-ON  /O -*  r  /  |  ?^T  T  /FJVE/H 
C 

TIf -.KETOF  ^n^-)r''57  )  ,r ’V-vriT  (if )  ,  H  (f->b  )»HiO(57  ),DAV(:>7  ,37  ) 
OIKrrrijK  H2HMA  r-<  Li,  It) 

C 

C  THE  0JK:NC1DNI  nr  V-  A  Y”  M,  FID,  WJDCHE0,  AND  0 A V  A  -E  (  /'Z  +  i)  . 

C  H2DXAG  iS  i'l  R;wSI  a*It  r  (11, ii)  TO  STORE  TNI  121  CALCULATED  H(W?,W1) 

C  MAGNJT'lCt  VTLHrS.  ''Hf’VFTT  T  5  OJ  W>1  KSION"  0  (18)  •  THE  FIRST  NINC  LOCATIONS 
C  ST  T7  E  1u|t.  CnKiTAMTS  '  H ;  SEOCTD  Cc0l*  H COL  ELL  AN  I  -<AMS  F3RMA  T 1  ON  (IF  THE  FI 
C  ORDER  KCCL'.l  'M  r7AT  r0‘  MATT  CN  IS  USEO,  FIVE  OF  THE  MINE  C0N3TAN1S 
C  WILL  °E  7 CRT ) . 

C 

K  =  (NFILT  -  1)  /” 
t<0  -  K-M 

c 

C  IN  TMjr  SECT  I)')  -t(J)  IS  Oovn/Finso  TO  HIO(J). 

C 

w  id  ( i )  =  HC<+n 

DO  1  J  =1  ,  K 

Wl")(Jfl)  =  „) 

i!  C  OH  T  i  'J  Ur 

C 

C  IN  THIS  StCrJn-N  -UOU)  IS  O'7  RVER1  ~  0  'i  0  H 1  DOMED  (  J)  . 

C 

C  FIRST  I'll  CN  T  .  T  F~  IS I  A  R&  a  Y  ?  f'J  irt  SET  TO  7t_RC. 

C 

00  3  •  J-\=i  ,  KO 

DC  2<  J0=1  ,KC 

OAV(JA,JTT  -  a.T 
2(  CONTINUE 

3(  rONTTNJIF 

C 

C  NEXT  T,JE  MAT  K  j.T'JO  ES  "  c  ALL  IFF  K0N-7ER0  ENTRIES  IN  THE  FHST  TWO  ROWS 
C  AR"  GEN:  PATES, 

C 

00  A  JA  =  i  .  n,  2 
FAV (i, JA)  r  1, 

kn  C ON TIN  if 

C 

DO  )'■  JA  =  ’  ,  K0»  7 
0Ai/(2,JA>  =  JA-i 

or  continue 

c 

I F  ('<  »  £0.  J )  GO  in  12; 

C 

C  then  ALL  THE  OT  H"3  M*  OK-1 7U3E c  OF  THE  NON-ZERO  ENT^T^S  ARE  GENERATED 
C  USING  A  PI  CURS  I  ON  en-MULA. 

C 

00  7  JA= ■  , KO 

DO  f  JO=JA,KO,2 

DA'.MJAjJD)  -  PA V  ( JA  ,  JB-2 )  ♦  nA  V  ( JA  -  i,  J3-1) 
ftC:  CONTINUE 

7T-  CONTINUE 

C 

C  NOW  ALL  NON- 7RR 0  S  N  7 "  I F  S  ARE  GIVEN  THE  PROPER  SIGN. 

C 

M--3 

DO  ?j  J  A  = 1  , KO 
IFTF.GT.  KO)  GO  TO  0  ? 

00  8 J  J9=H  , NO,  A 

DAV(jA,JO)  r  -i*OAV  (JA,  J£> 

80  CONTINUE 

H  =  1+ 1 
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C  O'!  1  I  v>  I  !•" 


c 

THE'!  th;-; 

k  OS  -  7~  RC  TS  .-.ASH  i  gw  A;'E 

c 

POME  i  ■  fr 

T  WO  , 

c 

POS- 

f  =  ?«  T 

rc  m  j\  =  -t  ,  kn 

* 

PI)  1  “  JO-  T  ,  K'  ,  7 

\v 

PASHA,  JO)  •  O-.'Mja  ,  JP)'  FPHFF 

1,  «• 

C  CNTTNU1-' 

f 

r  ivj ;  '  -  5*c  mw 

1  V/  •  ~  — 

4' 

1 1 

COST  I'M)1-* 

c 

r 

c 

FINALLY 

LACJ  7 A  LU E  Q:  k')~-|rR  1“  Ff-PDUC-9 

4. 

c 

CORN  ESP j 

M  imp-  Rnn  o=  QA M  H-ip(j), 

c 

I 

12: 

r  r.  l  i  J  =1  ,  ><0 

Fncu-i(j)  ■  \  - 

On  13'  J F=  J  r,? 

f 

n  =  *)A  '(  w,  )°)  *  Hi  Q  (  JP ) 

V 

HlnCM  "R  (  J)  =  h  mcuEn  ( J )  *  0 

13i 

0  ONT  INI  r 

{ 

1/>'S 

CONTIS  Ur 

c 

c 

IN  T4JJF- 

cf.CIJQM  TH"  AG!)TTJ",C  CF  U(W2,W.) 

c 

QUAOKA!!) 

CF  THE  W3-W'  PL  A  Mr  ^  CALCULATED 

\ 


150 

16C 

17'. 


PI  =  3. H>l5  £?«•*>“  ^C" 

DO  J  r  T  I  - 1 ,  i 

W1  =  3 1  *  (  T-l)  /i  'J  . 

*jO  IS"  1=1,  il 
4  ?.  -  °  *  (  )-1  )'li  . 

9  ?rM  ^  c '  I  ,  J )  =  HOCHcBtJ) 

9"  i;  5  1  =  F,KO 

O'nc  =  Hi  OQHf  P  (V)  *  (  (  CUR*/ FIT  (  i)  ■>•  CU^VpIT(3)*:3S(W2) 
+  riJRVFIT  ft-  )-*C0S(2*W2)  +  I  JRVFI  T  (  2  )  *C(J5  (  Wi  ) 

+  OJRVFITIO  »C0S(W1)  *  COS  (W2) 

+  CUKVFIT  (?  )  *r0S(  Ml)  ’•C0?(  ?*W2) 

4-  CUPVFil  (7)+C9S(2*Wi> 
i-  C'lKVm  (£')* COS (  2+Wl )  -*CD S  (W2) 

4-  OlkVFj.T(S)-‘CJS(2+Wi)*C3S  <2*H2>  )**  <M-1)) 
urn;*'/,;!,  J  =  HfOMAG < I , J)  +  PROD 

0  NTI'r'r 

3  0HTT*i,,c 
COSTl  MU17 


C  PROGRAM  OUT3 UT  S^TT'N. 

C 

PRIST  i?.  P 
WRIT  r(l,  1  >J  f! ) 

18  J  FORMAT  (///,  1H  ,7  (  1HM  ,  /  ,2teX,  33HTWJ-0IHENSI0NAL  FIR  FILTER  0 1  SI  RN) 
PRIST  2?C,  M^LT,  SPILT 
WRITS  ( 1,  22 Cr )  H  F~  LT,  nfil  1 

22  J  FORMAT  (X,21X,I3,  H  ~Y  ,I3,21H  SAMPLE  POINTS  FILTER) 

PRIST  2?  C 
WRIT  E ( 1, 23' > 

23  3  POPSAT  <//,  SX,  31  w^ar/lTTUn  E  OF  THE  2-n  FREQUENCY  ?ESP0SSE  IN  THE  FIR 

1ST  QUADRANT  i.  IX, 51M  (TH  E  FREQUENCY  RtbPONSE  IS  FOUR  QUA  ORAM  T  3YM” 
?ETriC)  ,51  (IN-)  ,/ '/,  1?.H  HJ -A.XIS  (TIMES  Pi) ) 

no  ?.’■>  0  TS  =  1,  11 
IV=  J2-IT 
0C=  (il-19)  /•  »  . 

PRINT  25-1, Qr,  (H3"!HA  C(IV,IW)  ,TW  =  1,11) 

W  P  J  T  „  (  i ,  2  5  "  ’  00,  (H2  :MAG(IV,IW)  ,IW=l,li) 

2b  (l  r  OX  T I  SUE 

25 j  FOF^Af  (W,  lH  +  ,/  ,,-’X  , 1H  +  ,  /  ,/+X,IH+,/,F4.1,lH+,  11F6. 2) 

- - 


'r 


S  *3 


on  -t  ->,r 


'■  1  1  t  ilto'l 

2(  ■  .  ,  v  ,  LH.  j  ,  2H,  2,  X  ,  2H.  ’  M  Y,  2h,  V  ,  y, 


**• 


•  *,  :-h.:  ,  x,ri-. 


^’Hwr-Avi  (tm- 

;  ni' 


c-r)  > 


C 

C 


X*  i}.  4&  *4  «k 

(>>/• 

♦  J’  V  /  ■ 


»  i  4  U  *>  *  i  .v 


t  -  i  .  4  t>AJ 


*  *  ■  '•*  ft  -  i>  ■ 


I  ;•  Y  O' :  L  ,  •  ,  •  1 

.  .if  K  t-i  *  f  t  , 


c* - ,. :■  ’■ypi'n 


c 

c 


c 

C 

C 

C 

C 


<  J 

THi;  w  mu  m  'OUW-T  mao  (H(  «)  )  =  ;jm:  h  incnc  s  ( J)  (Z  iso*,  T3 

J=- 

(<20)  <  O  (  T''*)  rs  ^  •_  -1 

M&'»(  »MWJ  ,K1)  )  =  ^  )  -t  i  SM!  ,J.  D‘~  m  r  q  (Lj  M )  (  COS  »H  i )  (MSH?)  3  Y 
1=1  is’ 

PJ°LAn\f.  CDF  'f  NT  TH  "«J“  HML'LLAh  U  A 1  S c  OK. » .;TI  on  "T.  THEN  -A  PA‘'3  1  ,\G 

'  w 


c 

TO  Tur  v'  poHF  .  AMI 

S  J  <r'|1  m  4i  " 

p  THE 

FIRST 

Ok3  L :  ICCl1' 

c 

TfVM'TSF;  :  MATI  C  <  l~ 

.|C-  o  ,  '<•>•>=  j , 

IF  1  H ; 

S 

ECONO 

0R0-? 

MS  3 Li. LA  N 

c 

r 

T  ANSF0'  .m/  7 1  ON  If 

o'- n  ,  ^->o=  j. 

rrV'-'Ot.  /CM/ 

MM'-'H'M  /fM/ 

f  YC. FT 

2 

CO’-"  OF  /C^/ 

jrriT  /rr,ip/ 

M(  7  Tv  AN 

/TtN/ 

H23 

?H£-1 

C 

c 

c 

c 

c 

c 

c 


L']V'.K!'1>  MCTvvr*,7>,  M-iTHiSC;,;?),  PR03(  >7,  '?) 
^1*'-  NF  1 D h  'IOR<  (7  ,«),  M  inf  urt  (-:> 


TH-  n  7  v  “  N  S 1 3  F  S  C-  T«‘  A^AYS  *J?P  C,JL?-,  H'OI),  AND  Hi  DOMES  ME 
0<CM  AX-1  ) /2f  1.  THE  H-'ISIOKS  OP  WOI-K  ARE.  (NFMAX-D/2.  f  HE 
(?)  IEn<?t">NS  3^  «Ct,?V  'RE  (3,7)  to  5  7  C'  E  T  HE  NINE  T'ON'RT  A  H  T  i>  3F  THF 
SECOND  ?irf.  '  T  T  L  • !.  L '  o  T  s,lNr  cii-  k  A  T  j  Of  \JF  THE  F I  <3 1  ORDER  -I3CICLLAN 
TPA‘i:>F0T*<ATins  IE  HR’  0,  -TV'  OF  THE  M]‘lf  CONSTANTS  NIl.  ?E  7£R0). 


p:al  - c r  p  i  v 

K-  ( I  Fit  7  -  !)/-> 


c 

c 

c 

c 

c 


IF  M  Y  ,P  T  ?  CM»A_F  HI  .*  ■ ,  'JIM"  TFf^-S  HILL  R  E  !J5*ZD  IN  TH£  HO  3 „ EL  LAN 
TPANSrO-  It  71  0  Cr  vCnr>  •  TUALS  F  OUi  *  TH;.  N  FOUR  TERMS  WILL  RF 
US-0  JN  TH'  Hr''LrLL  T'-'.  NS-  f^(-fc  Ti'ON. 


IF  (  !•' Y C y  7  '  •'">’)  =  1 

IF  ( MY  0°  T !  «E1.  *)  ^20  =  *> 

M  A  =  M  «  <  4- 1 
vo  -  v  20  *  v 


C 

c 

c 

c 


ALL  ENTRIES  IT  P51T,  MCPX,  '  KQ  H?OL  HtB  ARE  I  NIT  IALi7E3  TO  Z-.FC  EXCEPT 
PHOn(i.l)  A4D  H2r'CME' (1,1)  . 


1" 

21 


OC  2  L= 1 ,  u& 
r'0  1  H=L,  M 
FpifC.  >H)  =  -  .■ 
H  23  CH F  R  ( L  >  M'  = 
CONTINUE 
CONTINUE 


3F 

40 


DO  A  ■  L= 1 , 

■:«o  y  4  m=i,  -q 

WO<K(L,M)  = 

L  JVTINI!^ 

C0NTlNUr 
DR03(1,1)  =  1.1 
H2r'CHF  B(  i  j  1  )  =  H'  OCH-'Ki  ) 


corn*! 


V 


C 

c 

* 


s 


c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


EACH 
TE  t 


r 


THE  y*- 
th : 


c 

c 

c 

c 

c 


It:  rH’" 
Tim-: 


5 

f, 

IN  r h -  n 
T  f-  Att  O^p 
WORK  .  i 


_  1  C  5PV,>V 

0 

L-  L. 

A  ,  TP\  IS- 

OR 

r.-r 

k.  r  ”■*  r  i 

i_. 

C|!l,v‘ 

;  TTONS  I 

k  •; 

l  CO 

F. 

CO 

1  •  J  -  1  • 

V 

wr 

=  < ?n*  j  +• 

3  f 

(  .*  CPTf  . 

c0 

IF 

('-'VOPTt  . 

r  r 

r  •- 1  < 

1-  c  l~» 

■o  0! 

P'C-H 

1  u  r  (  H  ’ 

L 

">P  0  '• 

IA  = 

ifl  O'1 

r>- 

Vf5  K(  1' 

»  J 

3  OMf  T  *'  I 

!  T 

:  ON  TT  ”• 

z 

’  H- :)-(>!  1  d*  3  <J /. J  i.  LOG ;> ,  i  Hi  ~  0  J R  C.'!  vi \r 

■'U  3*  "I'LT  I  -  u  I  £  »  Vi  -Ids  THE  CKREN1  aJN'N3  I.G 
I--,r  THr  MAIN  L01D.  3.'JS  DM;  uF 

,.ir-  r  C  P  111  TH  c.  PROGRAM  CYCLES  THOUGH 


)  K  =  J 


■0 


K  - 


J  -  1 


E  V  T  T'O  0=-  S')D-LL?Di,  rSCM  I  - .?  H  OF  TH  MCCLELLAN 

nn  IC<  Ic  mm.  TTDLIE-  tI  ■  -  E  fur  cUk-'EN'i  PPDD'JCT  sm.Er!  [v 
Ll  OF  Pnr  vf'nif  A:  £  SIOMD  IN  PrOI. 

00  I  >  L  =1  ,  N 
00  7 1 


7" 

8- 


C 

c 

c 

c 


if 

MCCL  .-Ll 


OROOCI.  ) 

=  Wf  RN  (L  ,  »•'  ) 

MCTnAN(l, 

1) 

CONTI  k"'E 

0  ON TT N | - 

0  0  it'  L  =1  ,  V 

O  -o  )•'  1=1,  N 

PPOOCL  ,-‘+L) 

=  P'  00  (L  ,  M  +  l) 

+  W0,-<K(L,*1> 

♦ 

MCI P  6  V ( i, 

2) 

PROOd^l,’-'  ) 

-  P?0' <  L  +  1 , M  ) 

+  WORK  (L  , M) 

* 

MCTkAV  (  2, 

i) 

ppm(L*l,  <  *  i ) 

=  Pi  or  (L+J  ,!••+!) 

+  WORK(L,M) 

\ 

MCTKAV(2, 

?) 

als  ro"  ,  th:-' 

r  A\i  !K'LY  TERMS 

IN  TH- 

,5  FO^'I  A~T  0”. 

•iv  0C"T?  . -'0,  '») 

r.n  i  ri  ov 

opqn(L  ,  M  +  7  ) 

=  P-OOCL  ,m  +  L’) 

+  WORK(L,M) 

$ 

MCTRA V (1, 

3) 

D30  r(  L*t  ,‘!*2> 

=  P^0'T(L+l,M  +  2) 

+  WORK (  L  ,  M) 

* 

MCTKAV (2, 

3) 

ppoo(L+’,M  ) 

=  PROP ( L+2 , M  ) 

+  WOR^(L,M) 

M  C  T  p  A  V  (  3 , 

1) 

pP00  (  L  *■?  ,14-i) 

=  Pi-  00<!.  +  2,  M+l) 

+  WORK(L,M) 

♦ 

MCI  PAN ( 3, 2) 

PPO  0(  1  +  2  ,M  +  2) 

=  P“00<L+2,M  +  2) 

+  WOR^(L,M) 

r 

MCTRA  V  (  7, 

3) 

q- 

i , 


C  ON,TT  ’"*• 
CONTT  o’1' 


C 

C 

C 

C 

c 


AT  THIS  PLJVT,  P=>0)  f  0  NT  M  ni  S  TH’_  P  C  RP  L  E  T  £  PRODUCT  FOR  THE  CURRENT 
TIME  T,J:  HUGH  THE  '(A  T‘  1.00°.  MOW  A  PARTIAL  SUMMATION  TAKES  PLACE 
WITH  TH_  FtSULT  OP  ALL  PARTIAL  SUMMATIONS  STORED  IN  H  2  D  C  H  E  q  • 


ii.j 


12’ 

131 
1A  j 


•  » 

0  0  i  ?  1=1,  KC 

H20CHEn(L,M)  =  H2PCME  P  (L ,  M )  +  H10CHEP(J+1>  •'  PROD(_,M) 
”  QMT Ttyir 
CONT  TM"- 

rcvnvup 


r-  NO 


c 

c 

c 

c 


+  *  *  ■.*  V-  **+  M  •*  ■*< >■»•>«*  *  *  *  *  *  *  ***•*» 

OVER  LA Y( MG.  ,5,0) 

.y.i  »  < 


p  (i  ;r  /  m  p„>  3  ir  -i  t 


T m  i  ri.  ir,h  r  *■  *> *  •  \/  — >  t 

cr?P)  (<o  ( y-nj  (y  )  L  ■•) 

Mf G(  lJ("'  »<•'!)  )  =  1  M  •  0  )M i  HCOt,Jtn(L  ,  -!)  (COSWi)  (OOGW?)  fo 

L  -  *  '  = 

(V5  0)  00  { .<?P)  (V  ) 

MAG(  M(\-;  ,Ui)  )  =  GJH!  p  |y!  HcO(L,“)  (C  JSWiL)  (COS^?**)  .  LF  1  H~  Fif-M 

L  =  ’ 

OrOiP  '•'CCl'Ll  AN  T^^-j-TQr  M4TTTM  t?  ust  D,  <<20  =  i.  I«r  THE  3E30NO  ORF  =  p 
MO  CL  .'l.L  f  N  1~'f  -FFa  <m.A*  JO')  Tn  LSEO ,  *21-2, 

'OrR'O!  /DC  (VMYV  r  2 
( -mm0,  /c>;~/  »J  cr‘  L  T  /T>  k/  H?rCHf  R 

N5I0P  GP^(-T  ,57  ),  M?n:H"8(i?  ,-57),  H2D(E7  ,“7  ) 

TH-  DI'*"-  ION  'I  OF  T  M  .•»•>•>  AY  <5  ^tC,  P2CCHM,  AND  H2D  A  F  C  {  N- X-l )  /  2+1. 

IF  ^Yopjj  EO  UA  »  0  NTN',  T  r_  "  cCON  I  0>-.Dm<  MCCLELlAN  TRANSFORMATION 

(K2D=?)  WILL  7E  USED.  HYC’IE  EOUAI  3  FOUR,  THEN  THE 

FIT31  O-PfK  PDC  LrLL  M-  T-;  A  NS  ~  ORNf  T I  C  N  (<2')  =  i)  WILL  R:.  '  1 5  5.  D  • 


IF 

(  MYCD T'-1 

.FO. 

s) 

II 

pu. 

IF 

(  M Y  C3  T  0 

.c0.  ' 

)  v>~,  ? 

<  = 

:  C  ( IF  JL  T 

-1)  r  2' 

?  y  -j’-i 

RO 

=  r+i 

O'. 

l 

-  ILA’  n- 

TH-7  « 

!?  CG  RAM  P  ~  N  F  (• 

FIJ3T  AIL  LNlRlFO  I 'I  A  RR  A  Y  r  FO  f  RE  3f  7  TQ  ?tpO  FROL3!  THE  CrNTrR 
DIAGONAL  L  NT  PEP*?  NHT0H  1°-  S  cT  TO  ONE. 

r  0  3  J  \  =  1  ,  KO 

l-n  2  JT=L  ,<0 
Ci-::  <  JA  ,J1)  -  %'r 

2,  CuvTIv»Ur 

cf:  (  ia  ,j\)  1.  > 

3,  CONUN'F 

IF(1".  EO.  i)  GO  TO  1 1" 

then  the  f  Nf  F] E  ^  ON  LL  NON- 7£«0  UPPER  DIAGONALS  *  Rc.  G^TA^D 
USING  tijq  PE  HJ?  ETON  ‘OKp,)LAS. 

KO  =  K-i 

DO  E  '  J''=5,'/n',2 

CEO (t, JC)  =  FFC (2, J  r-i) 

if  ( n+i  , g*  .  kd)  g c  to 

CEC(2,JC+l)  -  CrD  ( 7  j  JC)  *  2‘CEC(1,JC) 


n  =  jc+2 

IF  (N  ,GT.  "D )  GO  TC  7 
DO  5  ,  JD=7,!'f 

Ct:(JD,N)  -  OEC(  JD-  1,  W-l)  +  CEC  (  JD  +  l,N-i) 

N  =  N  +  1 

CONTINUE 

KE  =  <E-2 

CON  TIN  IF 


THEN  THE  NON -y  E  RO  EN-Rirs  IN  EACH  COLUMN  ARE  MULTI^LI^D  3Y  THF 
PROPER  POWER  O-  TWO. 


7f  POWEP  =  ,0 

no  o.  J\z=T,^o 


rn  e 

JW  =  1 

A,  1  V.  "> 

(  ED  ( 

JM,JV) 

r  ) 

8< 

r  Q\‘  ?  : 

.VIP 

F  Od  r 

“  ♦  ' 

n  !■]  -  y 

9> 

ru\7 ' 

■  VIP 

113  COM  1"H~ 

if;  i  t'i-  5' : r ;  j  v  d~  ?•>.  >».;i  r-u^-q (l,.-!)  Ii(  partially  converted  t, 

)  r-Y  f-  M  ■  ‘  A  -  '  “  ' 'j  Im  T-;  '  >  r'_?  m  A  ?  ?  A  Y  WMOSr  '/ AL'J- S  ARE  STCPtO 
Iw  5*-)^  rwr  T,,r"f  v'"DT0  ■*■;  !  h  ■■  I.  Y  IS  Pt-PUPM)  '-Y  MUL I  I  JL I  NG  SOWS 

qp  r>r  -'y  ijw>  OP  m  ~ 

ro  rL  jj=i,»/r> 

"»0  1=3;  ■Y  o 

U?D  (  )  I.  J )  =  .  .  f 

nr  .31  p-  J  ,<■[)»?. 
n  =  *'■*;(  J,Jf‘>  -  H2DC  JEtJ(  J  J,  JP) 

J  ),  J)  =  H  ^  n  (  J  J  ,  J  )  4  Q 

31  r)4|TT»jl|C 

41  I  OUT  T 'J.l- 

51  fOVTJ'IlP 

HL-  TH:  I  Ni  E  rP)T  AT  A  MY  IS  >-0Vf  J  rRCM  M^OU.jM)  TU  H2DDHLB (L  >  M)  « 

DO  7 j.  KA=i,'D 

0  0  si  >'0=1 ,  KO 

H2DDLir',PO  ,«P)  =  >•  z\-  (K- ,<*5) 

61  DO\'TT,;ir 

71  COVTIMIP 

™  TH:r  -:i-c'n\i  n-  tij:  ortp  Ao,  the  first  intlkmedl at 2  array  (si  o>eo 

IN  H20r->Er-  (_  ,1)  )  rs  '  APT  MU.  >  p'.-N-'f  KTE'J  TO  H2P(L,M)  oy  G  E*J  SR  A’l  IMG  A 
SESOKO  IIP  ETPIOIKP  ‘PRA v  M  CS  f.  VAlUEi.  A?f;  STORED  I;J  H2D(_>M),  THE 
SCC3  <P  I  NT  ;:=  K-htq  r  r  yoqr,  y  IS  "’i- OMC  ED  SY  fi'JLTJ  PLTN‘,  'T)WS  Dr  CEC 
BY  COLUMNS  OF  M?OD  M  c  '  (  l.  M  )  . 

>'0  1  t  JJsl.  f  0 
0  0  01 

H  20  (  J ,  l  )) =  * .  ! 

no  fit  P=J  s^Oj? 

0  =  SEC  C  J  >  JP )  •  W2r;0  ri"B(JPjJJ) 
lJT0  (  J,  JJ)  n  J20  (  J,  J  J )  +  D 

81  ''‘"NTTN'P 

91  0  OlP  T  (j  1  r 

ldl  F0NT1NIIF 

HERE  TM-  SEDPiD  IS«'C  M  ET>  T  A  T  -  \»-*AY  IS  MOVED  FROM  H20(l,M)  TO 
H20C HE~  ( L  »  M)  . 

no  300  L  A  =  1 .  K  C 

OO  111  LB=i,*D 
H  20  CO  S'  ( LA  ,  LB)  =H20(LA,Lr') 

111  OOMTTN't 

12  i  CONTINUE 

IN  THIS  SEC1  ION  0-  T'S  e^O CRAM  THE  SECOND  INTERMEDIATE  ARRAY  (STOKED 
INJH2I0CHEB  (.  ,  1)  IS  CONVERTED  T0  H2T  (L  » M )  8Y  MOVING  THE  ELEMENTS  OF 
the  SECOND  INTERMEOT' TE  ARRAY  jc,  new  LOCATIONS  AND  MULT  JP'.ING  bt 
CONSTANTS. 


H20  (  KO  j  <  D)  =  M20CHEB  (1, 1  ) 

00  130  LO  =  i,>< 

H 2D (10 jKQ - L" )  =  .5  *  H20CHEB ( i , LC+ i) 
H2D  (’O-LD  »  Kr  )  =  .5  *  H20CH -r*(LC  +  l,  i) 


*>0  l  F-i  ,  * 

4  ?r'{  |.r.,  ><n-L  K) 

g onti  nm- 

r  ON!  T  :  M  1 1" 


?'  x  HGDChE- (LC  +  i,  L“M> 


C  PP0G:'4ki  f  9_'T 


if' 

17  J  cO'  J'  1 

1  ,  /,e*,  ’Hi-'-U'" 

w‘*i  i :  ( i ,  i  •  -■ ) 
le  ■  c-p-  -i A  1  (/  /,  4  ?V,  "  ^ 
1  :i  '»{;•  LI  3  -UL  '7 
7  )  ,/,  72  X,  f  ,  (  iu-)  ) 
IS  7=1 


U(*H"  r  l.O-  l-f  S r I  0 * J A L  il'PULSr  t^OMSE  IS  3;lwG 
'•'!  rG  V  c IP  H/>FOCL°V  OUTPUT  FJi_  \  RES  JIT)).) 

F-jw-TOf.AL  I M  °‘Jl3  i  Ir'SPOMGr  ,  /  »  3  2  X  , 

SAMPLES  t  <£  LoCATtO  IN  TH"  FIRST  OUA  (RaNT 


19  *  1  c  ( <  0  » t  '  •  L  F  0  ’•  L 
WPJTr(l,l,r)  L 

r,c  ?  *  M3=  j, 
WB?  T  -  ( 1 »  H  '  > 
2..  COJTIMIF 

10'.  FORMAT  <'/,UX,l 
1  2Y,  i  *‘M4‘>'V 

21  -  fop- AT  (iX,4HH'n 

lS?  =  L3  2  +  3 
L 1 2  =  L-2R 
lF(LS2«.F»^n)  ;n 
WPMEIl,?^) 

22  >  FO-'  -  A  ^  (///,4V,  1 

l  St  i/iKP.h,  GUI ' 
2PE‘  v  11=  1  n  SUV  : 
7SC  R  F  5  PGM'r  S4i°. 

4  34HL1ST-P  SAMO,_r' 
,  I  x ,  1 1  H-  M )  =  H  ?  n  ( 
:?;p 


1  ,L  >2,L  S?+ •  ,t.  f/?  +  ?,  I.SZ+3,LS2  +  ,,  oS’  +  S  ,  .52  +  t  ,iSZ+’ 
■'G 

M-’-J.,  (H2C1  ('■'ll  »t'D  ,  °C=LS2  ?  LE2) 

j IV ,  1 H  +  X,  3  (in-)  ,/, 

1,0  +,  F  X  ,  7  3  ,  i--  (irx,I2)  ,  /,  IX, 12  A  (1H+)  ) 

,M)  +  ,C.(F1  3.0  )  ) 


to  i 

1  ,7;‘<  +  j  ,X+1  ,K1H,2^K,2+P',2*K,2f K 

T  HE  ■*  ARF  ,  I317H  T I  M  L  3  ,13, 4?  H  2-0  IMPULSE  RESPON 
TMr  Fj  csi  ,/,!!  X,I3,7H  TIMES  ,  I  3  ,  5  H  SAMPLES  HAVE 
our  m  s  Y'-  M  £T  RI  -  s  ,  T  He  »  / ,  4  X ,  6-t  H R  F  U  A I  N I N  3  IMPUL 
~F  "AM  Pr!  GtNqPAT*  0  BV  USING  rHE,/,!»X, 

AMO  TH  e  PtLAtlQNt  ,  / ,  4Y ,  17HH  20  (L  ,  1 )  =  H?D(l, 
,1^  *H-U,.T3,5|,’H--!)  =  H20(,I3,  •) 
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